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For  those  weapon  groups  with  a MIRV  capability,  the  data  on  the  TMPALOC 
file  are  read  into  core.  The  program  creates  the  individual  booster 
assignments  and  outputs  the  strike  information  onto  the  ALOCGRP  file. 
For  MIRV  groups,  the  data  are  organized  as  follows  (see  table  1).  The 
index  number  of  each  target  that  receives  the  first  reentry  vehicle 
(RV)  from  a booster  is  set  negative.  The  strikes  are  ordered  such  that 
targets  which  receive  successive  RVs  from  the  same  booster  are  listed 
in  that  order.  (See  also  following  section:  Concept  of  Operation.) 

2.4  Concept  of  Operation 

Program  ALOCOUT  prepares  the  TMPALOC  file  on  which  information 
concerning  target  assignments  is  sorted  by  group.  For  those  groups 
with  a payload  containing  multiple  independently-targetable  reentry 
vehicles  (MIRV),  program  FOOTPRNT  performs  further  processing.  The 
inclusion  of  a MIRV  capability  into  the  QUICK  system  is  based  upon  the 
assumption  that  the  MIRV  weapons  can  be  allocated  to  targets  without 
regard  to  the  "footprint"  constraints.  These  constraints  define  the 
geographic  area  into  which  the  ordered  set  of  reentry  vehicles  from  a 
single  booster  must  be  targeted.)  This  design  approach  considers  that 
if  a certain  amount  of  extra  or  excess  strikes  are  included  in  the 
allocation,  the  footprint  constraints  can  be  imposed  later  without  the 
loss  of  payoff.  Since  imposition  of  the  constraints  may  show  that  a 
certain  number  of  strikes  contained  in  the  unconstrained  allocation  are 
not  capable  of  inclusion  in  a feasible  footprint,  the  extra  strikes  are 
added  so  that  the  final  assignment  contains  the  correct  number  of 
strikes. 

This  program  prepares  the  ALOCGRP  file  for  use  by  program  POSTALOC. 

This  file  is  very  similar  to  the  TMPALOC  file.  For  those  weapon  groups 
with  a MIRV  capability,  the  data  set  on  ALOCGRP  differs  from  that  on 
TMPALOC  in  the  following  ways: 

a.  The  "extra"  strikes  have  been  removed 

b.  The  index  number  (INDEXNO)  of  the  target  which  receives  the 
first  reentry  vehicle  (RV)  from  each  booster  is  set  negative 

c.  The  strikes  are  ordered  such  that: 

o Within  each  booster  load  (i.e.,  between  minus  signs)  the 
strikes  are  ordered  in  order  of  their  delivery  by  the 
missile 

o The  booster  loads  are  ordered  by  decreasing  value  (as 
defined  by  the  sum  of  the  relative  damage  values  (RVAL) 
for  all  targets  assigned  to  the  booster). 


Table  1. 

ASSOCIATED 

COMMON 

STRKSUM 

STRKSUM 

RAIDATA 


RAIDATA 

C4 

C4 

C5 


Format  for  MIRV  Group  Records  on  ALOCGRP  File 
VARIABLE 


OR  ARRAY 

LENGTH 

DESCRIPTION 

KGR OUP 

1 

Group  number 

NTSTRK 

1 

Total  number  of  strikes  for 
this  group 

NCORR 

1 

Number  of  corridors  for  this 
group  ( =1) 

NSTRK 

30 

Number  of  strikes  assigned 
to  each  corridor 

NT 

1 

Total  number  of  targets 
assigned  to  group 

JGROUP 

1 

Group  number 

JCORR 

1 

Corridor  number  ( =0) 

INDEX 

NT 

Index  numbers  of  targets 
(negative  if  first  target 
assigned  to  booster) 

TGTLAT 

NT 

Target  latitude  (degrees) 

TGTLONG 

NT 

Target  longitude  (degrees) 

RVAL 

NT 

Relative  value  of  strike 

DLAT 

NT 

Offset  latitude  (degrees) 

DLONG 

NT 

Offset  longitude  (degrees) 

LXLLFIX 

(NT/36)  +1 

Fixed  assignment  indicator 

LXIHOB 

(NT/36)  +1 

Weapon  height  of  burst  indicator 

DESIG 

NT 

Target  designator  code 

TASK 

NT 

Target  task  and  country  owner 
codes 

CNTRYLOC 

NT 

Target  country  location  code 

FLAG 

NT 

Target  flag  code 

TSAL 

NT 

Salvo  number 
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Table  2.  (Part  3 

of  3) 

INPUT  FROM  TMPALOC  AND 

OUTPUT  ON  ALOCGRP 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

STRKSUM 

KGROUP 

Group  number 

NTSTRK 

Total  number  of  strikes  assigned 

NCORR 

Number  of  penetration  corridors 
used 

NSTRK(30) 

Number  of  strikes  assigned  to  each 
penetration  corridor 

LSTRKSUM 

Length  of  STRKSUM  record 

RAIDATA* 

NT 

Total  number  of  strikes 

JGROUP 

Group  number 

JCORR 

Penetration  corridor 

INDEX(1500) 

Target  index  number 

TGTLAT(1500) 

Target  latitude 

TGTLONG(1500) 

Target  longitude 

RVAL(1500) 

Relative  value  for  target 

DLAT (1500) 

DGZ  offset  latitude  (degrees) 

DLONG (1500) 

DGZ  offset  longitude  (degrees) 

LRAID 

Length  of  /RAIDATA/  block  to  this 
point 

NTMAX 

Maximum  number  of  target  assign- 
ments for  one  group 

LXLLFIX (41) 

Fixed  assignment  indicator 
(1500  packed  logical  values) 

C4 

DESIG(1500) 

Target  designator  code 

TASK(1500) 

Target  task/subtask  and  country 
owner  codes 

CNTRY  LOC (1500) 

Target  country  location  code 

FLAG(1500) 

Target  flag  code 

C5 

ISAL(1500) 

Salvo  number 

* This  block  is 
/RAIDATA/  in 

redefined  for  internal 
table  3. 

use  - see  internal  common  block 
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Table  3.  Program  FOOTPRNT  Internal  Common  Blocks  (Part  1 of  11) 


BLOCK 

RAIDATA 


CONTROL 


Array  IDUM, 
**  this  array. 
From  common 


VARIABLE  OR  ARRAY 

NT 

JGROUP 

JCORR 

INDEX* (1500) 

R(1 500) 

THETA(ISOO) 

RVAL(1500) 

IFOR(1500) 

IBACK(1500) 

LRAID 

NTMAX 

LXLLFIX(41) 

NV 

NARV 

NEXTRA 

P EXTRA** 

NPASS 


DESCRIPTION 

Total  number  of  strikes 

Group  number 

Penetration  corridor 

Target  index  number 

Distance  from  group  centroid  to 
DGZ  (nautical  miles) 

Launch  azimuth  of  weapon  from 
centroid  to  DGZ  (radians) 

Relative  value  for  target 

Forward  pointer  for  booster 
assignments 

Backward  pointer  for  booster 
assignments 

Length  of  /RAIDATA/  block  to  this 
point 

Maximum  number  of  target  assign- 
ments for  one  group 

Fixed  assignment  indicator 
(1,500  packed  logical  values) 

Number  of  boosters  in  group 

Average  number  of  targets  per 
booster  in  initial  assignment 

Number  of  boosters  with  initial 
assignments  containing  (NARV  + 1) 
reentry  vehicles 

Fraction  of  total  strikes  that  are 
excess  strikes  added  by  PREPAL0C 

Processing  pass  number 


ised  for  input/output  temporary  storage  equivalenced  to 
ilock  /EXCESS/  on  BASFILE. 
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Table  3.  (Part  2 of 

ID 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

CONTROL 

FRACLOOK 

Fraction  of  next  booster  load 

(cont .) 

for  look-ahead 

MAX FOOT 

Input  parameter  governing  degree 

of  effort  expended 
OPTBOOST 

in  subroutine 

DELAGE 

Multiplier  for  AGE 
target  arrays 

in  potential 

PURGE 

Fraction  of  targets 

in  potential 

target  arrays  removed  in  BOOSTIN 

PN 

Weighting  factor  for  worth  function 

EXTRAB* 

Number  of  extra  booster  loads 

added  in  PREPALOC 

NOK 

Actual  number  of  correct  strikes 

to  be  assigned 

IGSTART 

First  group  to  process 

IGEND 

Last  group  to  process 

DSQUARE 

CD2 

Square  of  CROSSDWN  . 

l 

UD2 

Square  of  UPTOWN 

f see  common 
/RANGE/ 

DEL2 

Square  of  DELMIN 

1 

DZ2 

Square  of  DZ 

) see  common 

VMIN 

=VALF (DELMIN/ DZ.TNZ)  ) /VALPARM/ 

EARTH 

RADIUS 

Radius  of  Earth  (Nautical  miles) 

DEGTORAD 

Conversion  factor  for  degrees  to 

radius 

PI 

Pi 

PIDIV2 

Pi/2 

FOOT 10 

MAXRV 

Maximum  number  of  reentry  vehicles 
allowed  in  one  assignment 

ISYS 

System  identification  number 

NTAR 

Number  of  reentry  vehicles 

currently  assigned 

* From  common 

block  /EXCESS/  on  BAS FILE 
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Table  3.  (Part  3 of  11) 


VARIABLE  OR  ARRAY 
RIN(20) 

THIN(20) 

IFEAS 

DELRSTRT 
DELRAFT(20) 

FUELEFT 

FOOTSAVE  IFOTSAVE (20) 

NHITOLD 
VHITOLD 
IF2SAVE(20) 

N2SAVE 
JINR 

JINP 
JOUTR 

JOUTP 
JSAVE(20) 


DESCRIPTION 

Range  to  target  (nautical  miles) 

Azimuth  to  target  (radius) 

Number  of  targets  that  can  be 
reached  within  fuel  constraints 

Maximum  additional  flying  distance 
allowed  if  first  target  in  footprint 
is  to  be  changed  (nautical  miles) 

Maximum  additional  flying  distance 
allowed  if  new  target  is  to  be 
added  after  this  target  in 
footprint  (nautical  miles) 

Fuel  left  after  completion  of 
weapon  deliveries 

Potential  target  index  of  targets 
in  first  footprint 

Number  of  targets  in  first 
footprint 

Sum  of  RVALs  for  targets  in  first 
footprint 

Potential  target  index  of  targets 
in  second  footprint 

Number  of  targets  in  second 
footprint 

RAIDATA  index  of  target  to  be 
entered  into  potential  target 
arrays 

Potential  target  index  of  target 
to  be  entered 

RAIDATA  index  of  target  to  be 
removed  from  potential  target 
arrays 

Potential  target  index  of  target 
to  be  removed 

Potential  target  index  of  targets 
entered  by  look-ahead 


BLOCK 

FOOT 10 
(cont . ) 


INDEX 
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Table  3.  (Part  4 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

INDEX 

(cont.) 

NJSAVE 

Number  of  targets  entered  by  look- 
ahead 

JSAVOPT 

Look-ahead  flag 

LOADATA 

LOADOPT 

Booster  loading  option 

NRVADD(1500) 

Number  of  extra  reentry  vehicles 
added  to  this  target 

NADDED 

Total  number  of  extra  RVs  added 
in  a pass 

NTOADD 

Number  of  RVs  to  be  added  to 
current  footprint 

NONTAR (20) 

Total  number  of  RVs  on  each  target 
in  assignment 

NADDOLD 

Number  of  extra  RVs  added  in 
first  pass 

PARAMETR 

MAXSYS 

Maximum  number  of  systems  allowed 
in  footprint  parameter  table 

I1LNAME  (40) 

Hollerith  name  of  MIRV  system 

MINLOAD (40) 

Minimum  number  of  RVs  per  booster 

MAXLOAD (40) 

Maximum  number  of  RVs  per  booster 

DSPACE (40) 

Minimum  spacing  (nautical  miles) 
between  consecutive  DGZs  in  footprint 

THROW MAX (40) 

Maximum  distance  between  consecutive 
DGZs  in  footprint  (nautical  iriles) 

MTYPE (40) 

Footprint  constraint  functional 
form  designator 

IDATA(40) 

Index  to  footprint  parameter  data 
set 

PERFORM 

NASON 

Total  number  of  targets  assigned 
to  boosters  in  current  pass 

VALASGN 

Sum  of  RVALs  for  all  targets 
assigned  in  current  pass 

TVAL 

Sum  of  RVALs  for  all  targets 

NOLD 

Number  of  targets  assigned  in 

first  pass 
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Table  3.  (Part  5 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

PERFORM 

VALOLD 

Sum  of  RVALs  for  targets  assigned 

(cont . ) 

in  first  pass 

POTENT 

MAX POT 

Maximum  number  of  potential  targets 

MAXHIT 

Maximum  number  of  targets  in  hit 
list 

IPOT(SO) 

RAIDATA  index  of  potential  targets 

NHIT 

Number  of  targets  in  hit  list 

IHIT(20) 

Hit  list  - potential  target  index 

TOFLY (20) 

Distance  (nautical  miles)  between 
successive  targets  in  hit  list 

NMISS 

Number  of  targets  in  miss  list 

MISS (50) 

Miss  list  - potential  target  index 

NFREE 

Number  of  available  spaces  in 
potential  arrays 

IFREE(SO) 

Potential  target  index  of  available 
spaces 

NLOST 

Number  of  "lost"  targets 

LOST (50) 

RAIDATA  index  of  "lost"  targets 

INVERSE (50) 

Index  to  position  in  hit  or  miss 
list 

AGE (50) 

Factor  related  to  number  of 
boosters  processed  while  target 
remains  in  potential  target  arrays 

RANGE 

CROSSDWN 

Ratio  of  downrange  to  crossrange 
distance 

UP DOWN 

Ratio  of  downrange  to  uprange 
distance 

DELMIN 

} 

Minimum  spacing  between  consecutive 
DGZs  in  a footprint 

DEFAULT 

Mininvim  spacing  allowed  for 
computation 

TSCRATCH 

ISCR 

Logical  unit  number  for  assignment 
data  scratch  file 
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Table  3. 


(Part  6 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

TS CRATCH 
(cont . ) 

ITABL 

Logical  unit  number  for  footprint 
parameter  data  scratch  file 

VALPARM 

D2 

Maximum  distance  between  consecutive 
DGZs  in  footprint 

TNZ 

Intercept  for  value  line  (deter- 
mined by  PN  in  /CONTROL/) 

SLZ 

Slope  of  value  line 

WPNTGT 

IPOTGT 

Potential  target  index  of  target 
to  be  added  or  deleted  from  hit 
list 

JAFT 

Potential  target  index  of  target 
after  which  new  target  is  to  be 
added  in  hit  list 

JTGTD 

RAIDATA  index  of  target  to  be 
removed  from  a booster  assignment 

NUMBOOST 

Booster  number  currently  being 
processed 

Cl 

VAL (50) 

Worth  of  target  if  added  to 
footprint 

JAFTER(50) 

Potential  target  index  of  target 
preceding  new  target  in  footprint 

VALFIRST (50) 

Worth  of  making  target  first 
target  in  footprint 

COSTEFF (20) 

Inverse  of  additional  fuel  needed 
to  reach  this  target 

D(50 ,50) 

Distance  computation  matrix 

C2 

MAXBOOST 

Maximum  number  of  boosters  allowed 
in  one  group 

IBOOST (500) 

RAIDATA  index  of  first  target 
assigned  to  booster 

NTB (500) 

Number  of  targets  assigned  to 
booster 

I STATUS (1500) 

Target  processing  status 

NDEX(1500) 

Temporary  index  storage 
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Table  3.  (Part  7 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

C3 

RP(50) 

TP(50) 
RVALP(50) 
SINES (50) 
COSINES (50) 
AVRP 


AVTHP 

RHIT 

THIT 

SINAV 

COSAV 

S INHIT 

COS INHIT 

THOLD 

COSINER(50) 

SINER(50) 

DEBUG 

IOTA 

ICAMFROM (20) 

PRINT 

ICALL 

IMUST 

FLAG 

NFLAG 

LXIFLAG(3) 

NC 

IPRNT(60) 

DESCRIPTION 

Range  of  target 

Azimuth  to  target 

Target  relative  value 

Sine  of  azimuth 

Cosine  of  azimuth 

Average  range  of  all  potential 
targets 

Average  azimuth  of  all  potential 
targets 

Range  to  first  target  in  foot- 
print 

Azimuth  to  first  target  in 
footprint 

Sine  of  AVTHP 

Cosine  of  AVTHP 

Sine  of  THIT 

Cosine  of  THIT 

Azimuth  used  to  compute  entries 
in  distance  matrix 

Cosine  of  great  arc  from  weapon 
group  to  target 

Sine  of  the  same  angle  as  in 
COSINER 

Index  to  last  entry  in  ICAMFROM 
array 

Index  of  Hollerith  names  of 
subroutine  calling  sequence 

Print  request  number 

Error  condition  indicator 

Maximum  number  of  print  options 

Active  print  indicator 

Number  of  print  requests 

Print  option  number 
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Table  3.  (Part  8 of  11) 


BLOCK 

FLAG 
(cont. ) 


The  following 
constraints . 
more  detailed 

FOOTDATA 

(long-range 

system) 


VARIABLE  OR  ARRAY 
IFG(60) 

IFP(60) 

IFB(60) 

ILG(60) 

ILP(60) 

I LB  (60) 

MYPRT(60) 

IDUMP 


DESCRIPTION 

First  group  to  be  printed 

First  pass  to  be  printed 

First  booster  to  be  printed 

Last  group  to  be  printed 

Last  pass  to  be  printed 

Last  booster  to  be  printed 

Mode  by  which  print  was  requested 
(DEFAULT,  INPUT,  or  REMOVED) 

Print  number  to  abort  run  with 
memory  dump 


blocks  contain  the  parameters  which  define  the  footprint 
The  descriptions  of  subroutines  TABLINPT  and  SETDATA  contain 
information. 


GAS(16) 

RX(16,2) 
RAXX(16,2) 
T0SSC1(16,2, 16)  | 
TOSSC2(16,2, 16)  j 
TE0NE(16, 16) 
TEW0(16, 16) 
TDEN0M(16) 

RBAS IC(16,2) 

RADD(16,2) 

E0NE(16) 

ETW0(16) 

DENOM 

CONE (16, 2) | 
CTWO(16,2) ) 
UE1(16)| 

UE2 (16) I 


Fuel  available  for  footprinting 
Basic  range  extension  coefficient 
Added  range  extension  coefficient 

Fuel  consumption  parameters 

Fuel  consumption  exponents 

Distance  scaling  factor 

Basic  maximum  booster  range 

Added  maximum  booster  range 

Downrange -crossrange  ratio 
exponents 

Distance  scaling  factor 

Downrange-crossrange  ratio 
coefficients 

Downrange-uprange  ratio 
exponents 
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Table  3. 


(Part  9 of  11) 


BLOCK 

FOOTDATA 
(cont. ) 


SHRTDAT 

(short-range 

system) 


PENADD 
(additions 
for  penetra- 
tion aids) 


CSYS4 


VARIABLE  OR  ARRAY 
UC1(16) | 

UC2(16) ) 

UDEN 

LLNGDAT 
ALPHAZ(16) 
ALPHA1(16)  , 
ALPHA2(16) 
BETAZ(16) 

BETA1 (16) 

BETA2 (1C) 
MAXRB0ST(16) 

GTWO  ) 

GONE  > 

GZERO I 
DONE  ) 

DZERO  ) 

LSHTDAT 

TOTFUEL 

SRFC1 (16)) 
SRFC2(16)| 

SRFEXP1 (16) 
SRFEXP2(16) 

SRFDEN 

LPENDAT 

A0(16) 

Al(16) 

A2(16) 


DESCRIPTION 

Downrange-uprange  ratio 
coefficients 

Downrange-uprange  distance 
scaling  factor 

Length  of  this  block 


Fuel  consumption  parameters 


Fuel  load  parameters 


Maximum  booster  range 

Downrange-crossrange  ration 
parameters 


Downrange-uprange  ratio 
parameters 

Length  of  this  block 

Total  fuel  available  for  spacing, 
release,  and  footprinting 

Spacing  and  release  fuel 
coefficients 

Spacing  and  release  fuel 
exponents 

Distance  scaling  factor 
Length  of  this  block 


Fuel  consumption  parameters 
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Table  3.  (Part  10  of  11) 


BLOCK 

CSYS4 
(cont. ) 


WAROUT 

HDATA 


VARIABLE  OR  ARRAY 

DESCRIPTIONS 

BO (16)1 

Bl(16) 

Fuel  load  parameters 

B2  (16)) 

RANGEB(16 ,2) 

Basic  maximum  booster  range 

BRADD(16, 2) 
CR2  v 

Added  maximum  booster  range 

CR1 

Downrange-crossrange  ratio 

CRO 

( 

parameters 

CRDEN / 
UD2  j 
UD1  1 
UDO  ) 

Downrange- up range  ratio 
parameters 

LDSYS4 

Length  of  this  block 

IWARFL 

Logical  unit  number  for  war 
gaming  print  output 

List  of  values  for  holleritl 
testing 

HDEFAULT 

6HDEFAUL 

HIGSTART 

6HIGSTAR 

HI8 

2HI8 

HIGEND 

5HIGEND 

HLO ADOPT 

6HL0AD0P 

HA8 

2HA6 

HFREE 

4HFREE 

HMAXFOOT 

6HMAXF00 

HFRACLOO 

6HFRACLO 

HF8x2 

4HF8 . 2 

HDELAGE 

6HDELAGE 

HPN 

2 HPN 
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Table  3.  (Part  11  of  11) 
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BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

HDATA 

HPURGE 

5HPURGE 

(cont. ) 

HIDUMP 

5HIDUMP 

HPRINT 

5HPRINT 

HNOPRINT 

6HNOPRIN 

HX INPUT 

6H  INPUT 

HS CRATCH 

6HSCRATC 

HPOSITIV 

6HPOSITI 

HREMOVED 

6HREMOVE 

HNEGATIV 

6HNEGAT I 

HBLANKXX 

6H 

HXNMXLBX 

6H  NM/LB 

HXDRXCRX 

6H  DR/CR 

HPOUNDSX 

6HPOUNDS 

HBASFILE 

6HBASFIL 

HMAYX73 

6HNOV  73 

HTMPALOC 

6HTMPALO 

HALOCGRP 

6HALOCGR 

HEOT 

3HEOT 

HNOTXUSE 

6HUNUSED 
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An  asterisk  flags  variables  whose  values  are  changed  during  processing. 


INITIAL 


VARIABLE 

BLOCK 

VALUE 

REMARKS 

AGE* 

POTENT 

0.0 

Length  of  time  target  has 
remained  in  potential  target  list 

AZDIFF 

.01 

Used  by  subroutine  REVAL  to 
determine  necessity  of  recomputing 
distance  matrix 

AZOLD* 

io'9 

Used  by  subroutine  FOOTEST  to 
determine  necessity  of  recomputing 
fuel  consumption  parameters 

DEFAULT 

RANGE 

1.0 

Minimum  spacing  of  DGZs  required 
for  computation 

DEGTORAD 

EARTH 

.0174532 

Conversion  factor-degrees  to 
radians 

EPSILON* 

io"9 

Same  use  as  AZOLD 

I ERR* 

0 

Error  counter  in  subroutine 
FOOTEST 

ILASTL* 

0 

I LAS  TP  * 

0 

Used  by  subroutine  SETDATA  to 
determine  if  new  footprint  data 

I LASTS* 

0 

are  required 

I MUST* 

PRINT 

0 

Error  condition  indicator 

ISCR 

TSCRATCH 

25 

Scratch  file  logical  unit 
(assignment  data) 

ITABL 

TSCRATCH 

26 

Footprint  data  file  logical  unit 

LLNGDAT 

FOOTDATA 

1890 

Number  of  words  in  long-range 
system  data  set 

LPENDAT 

PEN ADD 

1956 

Number  of  words  in  penetration 
aids  system  data  set 

LRAID 

RAIDATA 

9003 

Length  of  /RAIDATA/  block 

**This  list  does  not  include  the  default  values  of  the  user-input  parameters 
which  are  described  in  subroutine  RDCARDF. 
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Table  4.  (Part  2 of  2) 


INITIAL 


VARIABLE 

BLOCK 

VALUE 

REMARKS 

LSHTDAT 

SHRTDAT 

117 

Length  of  short-range  system 
data  set 

LDSYS4 

CSYS4 

167 

Length  of  Type-4  system  data  set 

LSTRKSUM 

STRKSUM 

33 

Length  of  /STRKSUM/  block 

MAXBOOST 

C2 

500 

Maximum  number  of  boosters  per 
group 

MAXHIT 

POTENT 

20 

Maximum  number  of  RVs  in  one 
footprint 

MAXPOT 

POTENT 

50 

Maximum  number  of  entries  in 
potential  target  list 

MAXRV 

FOOT 10 

20 

Maximum  number  of  RVs  in 
footprint  that  can  be  tested 

MAXSYS 

PARAMETR 

40 

Maximum  number  of  systems  that 
can  be  considered  in  one  run 

NFLAG 

FLAG 

100 

Maximum  number  of  print  options 

NTMAX 

RAIDATA 

1500 

Maximum  number  of  targets  per 
group 

PDIFF 

.001 

Used  by  subroutine  FOOTEST  to 
determine  necessity  of  fuel 
parameter  recomputation 

PI 

EARTH 

3.1415927 

PIDIV2 

EARTH 

1.5707963 

RADIUS 

EARTH 

3440.068483 

Nautical  miles 

THOLD* 

C3 

io+37 

Azimuth  used  for  distance  matrix 

XOLD 

io‘9 

Same  as  AZ0LD 

2.6  Program  FOOTPRNT 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


This  is  the  main  program.  It  acts  as  a control 
driver  for  the  rest  of  the  subroutines.  It  is 
the  interface  subroutine  between  this  program 
and  the  remainder  of  the  QUICK  system. 

FOOTPRNT 

None 


COMMON  BLOCKS:  Cl,  C2,  C3,  C4,  C5,  CONTROL,  DEBUG,  DSQUARE , 

EARTH,  FILABEL,  FILES,  FOOTIO,  FOOTSAVE,  HDATA , 
IFTPRNT,  INDEX,  ITP,  LOADATA,  MASTER,  MYIDENT, 
MYLABEL,  NOPRINT,  PARAMETR,  PERFORM,  POTENT, 
PRINT,  RAIDATA , RANGE,  STRKSUM,  TS CRATCH,  WORD, 
VALPARM,  WPNGRPX , WPNTGT 

SUBROUTINES  CALLED:  BOOSTIN,  BOOSTOUT,  GLOG , GOPRINT , IN IT APE , 

INITRANS , INITASGN , L REORDER,  NEWCOOR,  OPTBOOST, 
ORDER,  PRINTSET,  RDARRAY , RDCARDF,  RDWORD, 

REMOVE,  REORDER,  SETDATA,  SETREAD,  SETWRITE, 

SKIP,  SLOG,  TERMTAPE,  TRANSFER,  WRARRAY,  VALF 


CALLED  BY : Operating  System;  this  is  a main  program 

Method: 

The  functioning  of  program  FOOTPRNT  can  be  divided  into  five  parts;  the 
flowchart  and  the  following  description  are  similarly  divided.  The 
parts  are:  the  initialization  of  the  program  control  variables,  reading 

the  strike  data  and  determining  the  groups  with  the  MIRV  capability, 
setting  the  control  data  for  each  individual  MIRV  group,  generating  the 
footprints  for  each  booster  in  the  group,  and  finally  selecting,  for- 
matting, and  writing  the  final  plan.  The  majority  of  the  file  reading 
and  writing  is  accomplished  in  this  program  and  the  specific  cases  are 
discussed  in  later  paragraphs. 


Part  I - The  Initialization  of  Control  Variables 

The  functioning  of  this  part  of  the  program  is  quite  straightforward 
logically.  The  program  begins  by  calling  subroutine  INITAPE  to  initialize 
the  filehandler.  Subroutine  RDCARDF  is  then  called  to  read  and  interpret 
the  user- input  parameters.  These  parameters  include  the  print  requests, 
program  control  variables,  and  footprint  parameter  data  tables.  The  use 


2.6.3  Subroutine  BOOST'' 


PURPOSE: 

Th  utine  determines  the  set  of  potential 

1 for  each  booster  and  computes  detailed 

i Urtarget  parameters  for  all  targets  in  the 
potential  target  list. 

ENTRY  POINTS: 

BOO ST IN 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

Cl,  C2,  C3,  C4,  CONTROL,  DEBUG,  DSQUARE , EARTH, 
FOOTIO,  INDEX,  PARAMETR,  POTENT,  PRINT,  RAIDATA , 
RANGE,  WPNTGT,  VALPARM 

SUBROUTINES  CALLED: 

CRSTODWN,  GOPRINT,  INPOT,  ORDER,  OUTPOT,  UPTODOWN, 
VALF 

CALLED  BY: 

FOOTPRNT 

Method: 

This  routine  is  called  once  each  pass  for  each  booster.  Its  purpose  is 
to  set  up  the  potential  target  arrays  for  the  booster.  Its  functions 
are : 

a.  Remove  targets  from  the  potential  target  arrays 

b.  Search  for  unassigned  targets  in  the  neighboring  geographic 
area  and  place  them  in  potential  target  arrays 

c.  Enter  targets  currently  assigned  to  the  booster  into  the 
potential  target  arrays 

d.  Compute  intertarget  distance  matrix 

e.  Determine  worth  of  maintaining  each  target  in  the  array  for  the 
next  booster  processed 

f.  Compute  the  worth  of  starting  the  footprint  with  each  target. 

Processing  begins  with  the  search  for  "lost"  targets.  These  are  targets 
which  are  currently  unassigned  to  a booster  and  not  in  the  potential 
target  arrays.  This  search  is  done  only  on  the  second  pass  since  the 
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initial  assignment  generated  by  subroutine  INITASGN  contains  every 
target.  The  geographic  area  to  be  searched  is  determined  by  targets 
currently  assigned  to  the  booster  and  also  the  targets  assigned  to  the 
next  booster  to  be  processed.  The  backward  pointer  (IBACK)  of  the  first 
target  in  each  footprint  is  set  to  the  RAIDATA  index  of  the  target  with 
the  largest  launch  azimuth  in  the  footprint.  Thus  BOOSTIN'  uses  this  value 
of  IBACK  for  each  of  the  two  boosters  to  determine  the  area  of  the  RAIDATA 
list  to  investigate.  Any  targets  in  this  area  which  are  neither 
assigned  nor  in  the  potential  target  arrays  (i.e.,  ISTATUS  - -2)  are 
placed  in  the  lost  target  list  (LOST)  and  ISTATUS  is  set  to  -1. 


The  routine  now  determines  which  targets  in  the  potential  target  arrays 
should  be  removed  to  make  room  for  the  targets  to  be  entered.  The  worth 
of  maintaining  a target  in  the  potential  list  is  always  stored  in  the 
diagonal  elements  of  the  distance  matrix  D.  The  worth  of  maintaining 
the  target  whose  POTENT  index  is  J is  saved  in  D(J,J).  The  number  of 
targets  to  be  dropped  is  determined  by  the  input  parameter  PURGE,  first 
the  routine  computes  the  number  of  targets  in  the  POTENT  list  which  were 
not  entered  in  the  list  by  the  look-ahead  feature  of  subroutine  OPTBOOST. 
If  this  number  is  less  than  the  average  number  of  targets  per  booster, 
no  targets  are  removed.  Otherwise  the  routine  omits  the  fraction,  PURGE, 
of  these  targets.  The  targets  are  omitted  in  order  of  increasing  worth. 
If  this  fraction  removed  does  not  leave  sufficient  room  for  the  current 
assignment,  targets  are  removed  singly  until  there  is  sufficient  room. 

The  routine  then  enters  the  current  booster  assignment  into  the  list. 
Finally,  as  many  of  the  lost  targets  as  possible  are  entered. 


Two  sets  of  intertarget  parameters  are  now  computed.  First,  the 
intertarget  distance  matrix  is  computed.  The  entries  in  this  array,  D, 
are  defined  as  follows,  for  targets  whose  POTENT  indices  are  i and  j: 


D(i,j) 


Square  of  actual  downrange  distance  from 

target  i to  target  j (this  quantity  is  set  i < j 

negative  if  j is  uprange  of  i) 

| Worth  of  maintaining  target  in  potential  list  i = j 


Square  of  actual  crossrange  distance  from  i > j 

V target  i to  target  j 


I The  off  diagonal  terms  are  computed  first  by  spherical  and  plane  geometry. 
For  this  calculation,  the  downrange  axis  is  defined  to  have  the  average 
launch  azimuth  of  all  the  targets  in  the  list. 


The  diagonal  terms,  the  worth  of  maintaining  the  target  in  the  list,  are 
computed  next.  In  order  to  keep  targets  in  the  arrays  for  at  least  two 
boosters,  a target  that  has  just  been  entered  is  given  an  artifically 

I high  value. 
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Figure  11.  (Part  2 of  4) 
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Figure  11.  (Part  3 of  4) 


4. 
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START 


' More  Than  ' 
One  Target 
yin  Hit  List?, 


900 

\ RETURN 


Set  Number  Of 
Changes  to  Zero 


|Do  For  All 
Targets  In 
i Hit  List 


Any 

Changes 

Made? 


Compute  Distance 
Saved  If  Target 
Order  Inverted 


Is 

Inverted 

Distance 

Less? 


/ Have  Arrays  \ 
^Been  Printed  At\^2- 
\ Least  Once?  / 


Increment  Number 
Of  Changes 


| 


Invert  Target  Order] 
And  Test  For  Fuel  Use] 


Was 
Fuel 
Saved?  . 


Figure  13.  Subroutine  CHKSEQ 
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Function  CRSTODWN 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


This  routine  computes  crossrange-downrange  ratios. 
CRSTODWN 

I = System  type  index  (MTYPE) 

R = Range  to  first  target  (nautical  miles) 

AZ  = Launch  azimuth  to  first  target 
N = Number  of  reentry  vehicles  carried 
CSYS4,  FOOTDATA,  PENADD,  PRINT,  SHRTDAT 
None 

BOOST IN,  EVAL,  FOOTEST 


Method: 

This  function  simply  applies  the  crossrange-downrange  ratio  equations 
whose  parameters  were  input  in  subroutine  TABLINPT.  The  formal  parameters 
are  the  system  type  number  (MTYPE),  the  range  and  azimuth  to  the  first 
target,  and  the  number  or  re-entry  vehicles  currently  on  board. 

Function  CRSTODWN  is  illustrated  in  figure  14. 
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Set  Azimuth 
Sign  Indicator 
Positive 


Is  Azimuth 
Negative? 


Set  Azimuth 
Sign  Indicator 
Negative 


Set  RV  Number 
Indicator 


1900  f 
Apply 

Long-Range 

Formula 


RETURN 


Figure  14.  Function  CRSTODWN 
6 


2.6.7  Subr outine  EVA L 


PURPOSE : This  routine  recomputes  the  value  arrays  for  each 

change  in  the  potential  target  list.  Entry  REVAL 
is  used  to  recompute  the  intertarget  distance 
matrix. 


ENTRY  POINTS:  EVAL,  REVAL 

FORMAL  PARAMETERS:  None 


CCMMON  BLOCKS:  Cl,  C2,  C3,  C4,  CONTROL,  DEBUG,  DSQUARE,  EARTH, 

FOOTIO,  PARAMETR,  POTENT,  PRINT,  RAIDATA,  RANGE, 
VALPARM 


SUBROUTINES  CALLED : 


CHKSEQ,  CRSTODWN,  FLYDIST,  GOPRINT,  ORDER,  REORDER, 
UPTODOWN,  VALF 


CALLED  BY: 


OPTBOOST,  IMPROVE 


Method : 

This  routine  has  three  functions: 

a.  To  determine  placement  in  the  hit  list  of  each  unassigned  target 
if  it  were  placed  in  the  current  footprint. 

b.  To  calculate  the  worth  of  adding  each  target  (individually)  to 
the  current  footprint. 

c.  To  recompute  the  intertarget  distance  matrix  if  necessary'. 

The  determination  of  the  correct  placement  in  the  current  footprint  of  an 
additional  target  uses  an  approximation  to  a minimal  increased  fuel  con- 
sumption criterion.  A target  is  placed  in  sequence  so  as  to  require  the 
minimum  increase  in  fuel  use.  The  procedure  for  this  calculation  is  exer- 
cised once  for  each  target  *n  the  miss  list.  Every  possible  footprint, 
formed  by  each  target  in  the  miss  list  being  placed  at  each  point  in  the 
current  footprint,  is  tested  to  determine  the  maximum  ratio  of  remaining 
fuel  with  the  target  to  remaining  fuel  without  the  target. 

Assume  a test  on  the  placement  of  the  new  target  K between  targets  J and  L 
of  the  current  footprint.  Previous  operations  in  subroutine  FOOTEST  have 
defined  the  following  variables. 

DELRAFT(J)  - The  maximum  increased  equivalent  downrange  distance 
that  could  be  traveled  after  target  J (and  before 
target  L)  that  would  still  allow  completion  of  the 
footprint  within  fuel  constraints. 
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Save  Percentage  Fuel 
Used  And  kemaining 
i Aval lahle  Distance 


1280 


Figure  15 


. (Part  2 of  3) 

Part  II:  Determination  of  Target  Sequence 


I 


; 


2.6.9  Subroutine  FOOTES T 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


This  routine  tests  footprint  feasibility. 

FOOTEST 

None 

Cl,  CSYS4,  EARTH , FOOTDATA,  FOOTIO,  PARAMTR, 
PENADD,  POTENT,  RANGE,  SHRTDAT 

ABORT,  CRSTODWN,  UPTODOWN 

ADDRV , TEST 


Method : 

Most  of  the  input/output  for  this  subroutine  is  contained  in  common  /FOOTIO/. 
Data  on  the  target  set  to  be  tested  are  contained  in  the  arrays  RIN  and  THIN 
(for  range  and  launch  azimuth,  respectively).  Subroutine  FOOTEST  computes 
the  equivalent  downrange  distance  between  each  successive  target  in  the  foot- 
print. It  then  determines  the  number  of  RVs  that  can  be  delivered  to  the 
target  set  without  violating  the  fuel  consumption  constraints.  If  an  RV  can 
be  delivered  to  each  target  in  the  set,  then  this  subroutine  computes  the 
effect  of  using  the  total  remaining  fuel  load  to  deliver  one  more  RV.  It 
outputs  the  maximum  equivalent  downrange  distance  that  the  remaining  fuel 
will  allow  from  each  point  in  the  footprint. 

Figure  17  displays  the  processing  flow  for  this  routine.  Since  the  methods 
used  to  test  footprints  are  essentially  the  same  for  all  systems,  only  the 
long-range  method  will  be  described.  The  other  system  methods  differ  only 
in  the  details  of  processing. 

Part  I:  Distance  Computation 

Before  testing  the  footprint  for  feasibility,  the  routine  calls  functions 
CRSTODWN  and  UPTODOWN  to  retrieve  the  correct  downrange-crossrange  and  dovn- 
range-uprange  distance  between  successive  targets  in  the  footprint.  These 
distances  are  placed  in  array  DT,  which  is  equivalenced  to  array  TOFLY  in 
cotnmon/POTENT/ . This  subroutine  does  not  use  function  FLYDIST  for  the  dis- 
tance computation,  but  rather  computes  the  equivalent  distance  from  the  basic 
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range  and  azimuth  data.  There  are  two  reasons  for  this  independent  cal- 
culation. First,  this  subroutine  can  test  any  data  contained  in  common 
/FOOTIO/,  without  considering  the  data  in  the  potential  target  arrays. 
Second,  the  footprint  testing  subprograms,  FOOTEST,  CRSTODWN,  UPTODOWN, 
SETDATA,  and  TABLINPT,  which  comprise  the  testing  nodule,  were  designed 
to  be  as  separate  as  possible  from  the  other  subprograms.  This  modular 
design  allows  for  modification  of  either  the  assignment  module  subprograms 
or  the  test  module  subprograms  without  excessive  manipulation  of  the 
interface  between  the  modules. 


Part  II-A:  Long-Range  System 

In  the  following  discussion,  a "leg"  of  a footprint  refers  to  the  line 
between  two  successive  targets  in  the  footprint.  The  Jth  leg  will  be 
the  line  between  target  J and  target  J+l.  The  length  of  these  legs  (in 
terms  of  equivalent  downrange  distance)  determines  the  feasibility  of  the 
footprint. 

The  testing  algorithm  (for  the  long-range  system)  begins  with  a determina- 
tion of  the  number  of  reentry  vehicles  in  the  footprint.  A number  indi- 
I cator  JRV  (or  NRV)  is  set  to  specify  the  correct  set  of  footprint  para- 
meter constraint  equations  to  be  used.  These  equations  will  vary  according 
to  the  number  of  RVs  on  board  the  bus.  In  order  to  save  processing  time, 
FOOTEST  precomputes  all  the  necessary  fuel  consumption  and  booster  range 
parameters  and  stores  them  in  a set  of  temporary  arrays  (e.g.,  RSAVE, 
REXSAVE,  and  CSAVE) . These  parameters  will  change  only  if  there  is  a new 
first  target  in  the  footprint  with  a significantly  different  range  (or 
I azimuth  for  the  non-short  range  system).  Thus,  on  each  call  to  FOOTEST, 
the  range  and  azimuth  of  the  first  target  are  tested  against  the  previous 
values  for  these  factors.  If  either  factor  differs  from  the  saved  value 
by  an  amount  greater  than  or  equal  to  PDIFF  (a  preset  test  variable),  then 
the  range  and  fuel  parameters  are  recomputed.  The  larger  the  preset  value 
of  PDIFF,  the  fewer  times  these  parameters  will  be  recomputed. 

If  the  long  range  system  has  a full  load  of  penetration  aids  (i.e., 
tfTYPE  = 3),  then  the  fuel  load  at  booster  separation  is  computed  by  a 
special  set  of  equations  (statement  3000). 


I The  main  testing  algorithm  begins  at  statement  1308  with  a calculation 
of  the  total  fuel  load  available  for  footprinting  and  the  maximum  booster 
range.  If  the  range  to  the  first  target  exceeds  the  maximum  booster 
range,  some  of  the  fuel  is  used  for  range  extension.  This  range  exten- 
sion fuel  is  subtracted  from  the  total  load  available  for  footprinting. 

If  this  subtraction  results  in  a negative  fuel  load  then  the  subroutine 
returns  with  the  feasibility  indicator,  IFEAS,  set  to  0. 


This  variable  contains  the  number  of  targets  in  the  footprint  that  can 
be  reached  within  fuel  constraints. 


Part  II-B:  Long-Range  System  (continued) 

If  there  is  some  fuel  left  for  use  on  the  legs,  the  feasibility  indicator 
is  set  to  1 and  the  number  of  reentry  vehicles  to  be  delivered  NTOGO  is 
set  to  the  original  number  minus  one  (since  one  RV  has  been  delivered  to 
the  first  target  point).  FOOTEST  then  computes  the  fuel  use  on  each  leg. 

It  retrieves  the  correct  fuel  consumption  rate  for  the  current  load  and 
the  equivalent  downrange  distance  for  the  leg.  A division  gives  the  amount 
of  fuel  used  on  the  leg.  If  there  is  not  sufficient  fuel  left  for  that 
leg,  the  fuel  remaining  indicator  FUELEFT  is  set  to  0 (statement  1365), 
and  the  routine  returns  control  to  the  calling  program.  If  there  is 
sufficient  fuel  for  the  leg,  the  fuel  remaining  is  decremented  by  the 
fuel  used  on  the  leg,  the  feasibility  indicator  is  incremented,  and  the 
number  of  RVs  on  board  is  decremented.  Then  the  next  leg  is  tested. 

When  all  the  legs  have  been  tested  the  fuel  left  after  footprinting 
FUELEFT  is  saved  (statement  1390).  If  the  booster  is  currently 
carrying  the  maximum  allowed  load,  control  returns  to  the  calling  program. 
If  more  reentry  vehicles  can  be  added,  the  best  use  of  the  extra  fuel  is 
calculated  (starting  at  statement  1396). 


Part  II-C:  Long-Range  System  (continued) 

This  section  begins  by  resetting  the  initial  load  indicator  to  show  the 
potential  addition  of  another  reentry  vehicle  to  the  original  payload. 

(If  necessary,  the  number  indicator,  JRV  or  NRV,  is  reset.)  The  same 
computations  as  were  done  previously  to  test  the  footprint  are  repeated 
with  the  increased  load.  This  time,  however,  the  difference  in  fuel  use 
between  the  original  load  and  the  increased  load  is  saved  in  array  EXTRA. 
The  value  of  the  element  EXTRA(J)  is  the  amount  of  extra  fuel  that  would 
be  needed  on  leg  J (from  target  J to  target  J+l)  to  carry  one  more  RV. 
These  computations  are  performed  in  the  "do  loop"  ending  on  statement 
1420. 

Then,  this  extra  required  fuel  is  subtracted,  cumulatively,  from  the  fuel 
left  after  completion  of  the  footprint  ("do  loop"  ending  on  statement 
1430).  The  elements  of  the  array  EXTRA  are  changed  to  contain 
the  successive  results  of  these  subtractions.  The  contents  of  EXTRA(J) 
now  contain  the  fuel  that  would  be  available  for  further  footprinting  if 
a new  target  were  added  to  the  footprint  between  target  J and  target  J+l. 
The  algorithm  assumes  the  extra  reentry  vehicle  is  carried  on  the  bus  for 
the  deliveries  through  target  J.  Then  the  extra  reentry  vehicle  is 
delivered  to  another  target  and  the  bus  proceeds  as  before.  The  amount 
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of  fuel  that  could  be  used  for  the  extra  flying  distance  created  by 
insertion  of  a new  target  is  now  contained  in  the  FXTRA  array. 

This  extra  fuel  available  for  further  footprinting  is  now  converted  into 
a maximum  allowable  distance.  The  testing  algorithm  assumes  that  all  the 
extra  fuel  would  be  used  by  the  bus  to  deliver  the  added  reentry  vehicle. 
(Note  that  the  fuel  needed  to  complete  the  footprint  after  that  delivery 
is  reserved  and  cannot  be  used  for  the  addition.)  Thus,  the  extra  fuel 
for  each  leg  is  multiplied  by  the  saved  consumption  rate  for  each  leg,  CR, 
to  calculate  the  maximum  extra  flying  distance  allowed  on  the  leg.  This 
distance  is  stored  in  array  DF.LRAFT  in  common  /FOOTIO/.  Subroutine  LVAL 
uses  this  distance  to  determine  the  worth  of  adding  a new  target  to  the 
footprint.  Since  other  subprograms  divide  by  these  distances,  the  values 
placed  in  the  array  are  increased  to  a minimum  nonzero  value  (EPSILON, 
preset  to  .00000001)  to  allow  that  division.  This  completes  footprint 
testing  and  control  returns  to  the  calling  program. 


Part  III:  Short-Range  System 

As  previously  stated,  the  methods  for  testing  footprints  for  the  short- 
range  system  is  essentially  the  same  as  the  long-range  system,  differing 
only  in  the  details  of  processing.  The  processing  flow  for  this  function 
is  shown  in  part  III  of  figure  17. 


Part  IV:  Type -4  System 

The  type-4  system  is  very  similar  to  the  short-range  system,  even  to  the 
point  of  sharing  some  flags  and  code.  The  processing  flow  for  this  func- 
tion is  shown  in  Part  IV  of  figure  17. 


Part  V:  Error  and  Termination  Blocks 

Part  V of  figure  17  is  the  logic  flow  for  printing  out  the  errors  which 
may  be  encountered  within  the  subroutine. 
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Increase  All  Distances  Done 
Below  Minimum  Value  ^ “ 
(fPSltON)  To  That  Valu. 


Do  ppr  All  l.cgs 
In  I'ootpri nt 


Multiply  Ilxcess  Duel 
By  Mi leage  Bate  To 
Determine  Maximum 
Allowable  Distance 
After  bach  Target 


Figure  17. 


(Part  4 of  8) 
Part  II-C 
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(Part  6 of  8) 
Part  III 


Figure  17.  (Part  8 of  8)  , . 

Part  V:  Error  and  Termination  Blocks 
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2.6.10  Subroutine  FUELSAVE 


PURPOSE: 

ENTRY  POINTS: 


This  routine  computes  the  fuel  saved  by  the 
omission  of  each  target  in  the  footprint. 

FUELSAVE 


FORMAL  PARAMETERS : None 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


Cl,  DEBUG,  FOOTIO,  POTENT,  FRTNT , WPNTGT 

GOPRINT,  HITIT,  MISS  IT,  TEST 

IMPROVE 


Method : 

This  subroutine  takes  the  current  hit  list  and  calls  subroutine  TEST  to 
compute  the  fuel  remaining  after  completion  of  the  weapon  deliveries. 

Then,  FUELSAVE  modifies  the  hit  list  by  the  removal  of  the  first  target. 
TEST  is  called  again  and  FUELSAVE  Calculates  the  difference  in  fuel  used. 
The  omitted  target  is  returned  to  the  hit  list  in  the  same  position  and 
the  next  target  is  omitted.  This  process  of  omission  and  testing  is 
continued  until  the  deletion  of  each  target  is  tested. 

The  reciprocal  of  the  fuel  saved  by  the  deletion  of  each  target  is  stored 
in  array  COSTEFF  in  common  /Cl/.  The  values  in  this  array  are  used  by 
IMPROVE  to  determine  the  order  in  which  targets  will  be  deleted  during  the 
improvement  phase. 

Subroutine  FUELSAVE  is  illustrated  in  figure  18. 
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subroutine  RDCARDF.  If  so,  subroutine  ABORT  is  called  to  produce  a 
memory  dump.  Otherwise  control  is  returned  to  the  calling  program. 

Subroutine  GOPRINT  is  illustrated  in  figure  19. 
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NUMBER  COMMON  DESCRIPTION 

1 WPNGRPX  Group  data  read  from  BASFILE 

2 PARAMETR  MIRV  system  general  parameters 

3 Detailed  footprint  parameter  tables 

4 Detailed  booster  loading  tables  (not  used) 

5 STRKSUM  Gross  strike  data  block 


6 RAIDATA  Detailed  strike  data  block 

C4 
C5 

Range  and  launch  azimuth  of  target  set 

(includes  index  according  to  azimuth) 

8 C2  Status  array,  pointer  arrays,  booster 

loadings  and  pointers 

9 RANGE  Downrange /up range , downrange/crossrange  ratios 

10  DEBUG  List  of  chain  of  subroutine  calls 


11  POTENT  Potential  target  arrays;  includes  hit,  miss. 

Cl  lost  and  free  lists  as  well  as  age  and  value 

arrays 


12  CONTROL  Control  parameters  for  program 

13  FOOTIO  Input/output  data  for  footprint  tester 

14  PERFORM  Gross  performance  parameters 

15  Same  as  number  11,  /POTENT/  and  /cl/ 

16  WPNTGT  Indices  for  moving  targets  between  hit  and 

miss  lists  (includes  target  to  booster 
assignment  indices) 


17  C3  Temporary  storage  of  various  parameters  for 

RANGE  all  targets  in  potential  target  arrays. 

(includes  common  /RANGE/,  number  9) 


Clear  Assignment 
Arrays  In  /C2/ 
And  /RAIDATA/ 


Do  For  Each 
Booster 


Increment  Target 
Pointer  (IP) 


Assign  This  Target  As 
First  Target  On  Booster 


Do  For  Second 
To  NARV 
Vehicles 


Are  There  Extra 
Vehicles  To  Be 
Assigned? 


Decrement  Number 
Of  Extra  Vehicles 
To  Be  Assigned 
(NEXTRA) 


Increment  Target 
Pointer  (IP) 


Assign  This  Target 
To  Booster  As 
Last  Target 


Figure  22.  Subroutine  INITASGN 
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2.6.15  Subroutine  INPOT 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


This  routine  adds  and  deletes  targets  from  the 
potential  target  arrays. 

INPOT,  OUTPOT 

None 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


Cl,  C2,  C3,  C4,  CONTROL,  DEBUG,  EARTH,  INDEX, 
POTENT,  PRINT,  RAIDATA,  WPNTGT 

GOPRINT,  REMOVE 


CALLED  BY: 


BOOST IN,  OPTBOOST 


Method : 


Entry  INPOT  removes  a target  from  the  RAIDATA  lists  and  enters  it  in  the 
potential  target  arrays.  If  the  target  is  currently  assigned  to  a booster, 
subroutine  REMOVE  is  called  to  remove  the  assignment.  Entry  OUTPOT 
removes  a target  from  the  potential  target  arrays  and  returns  it  to  the 
RAIDATA  list  in  an  unassigned  state.  (Subroutine  BOOSTOUT  is  used  to 
remove  targets  that  are  assigned  to  a booster.)  The  data  which  controls 
this  subroutine  are  contained  in  common  /INDEX/  as  follows: 

JINR  - RAIDATA  index  of  target  to  be  entered  into  potential 
target  arrays 

JOUTP  - Potential  target  index  of  target  to  be  removed  from 
potential  target  arrays. 

During  processing,  the  following  indices  in  common  /INDEX/  are  also  defined: 

JINP  - Potential  target  index  for  target  entering  potential 
arrays  (= IFREE  (NFREE) ) 

JOUTR  - RAIDATA  index  of  target  to  be  removed  (=IPOT  (JOUTP)). 

To  save  time  in  processing  by  reducing  the  number  of  references  to  variables 
in  common  storage,  the  following  substitutions  are  made  for  these  indices: 


JR 


JINR  (in  INPOT) 


JR  = JOUTR  (in  OUTPOT) 

JP  = JINP  (in  INPOT) 

JP  = JOUTP  (in  OUTPOT) 

The  processing  of  this  subroutine  is  very  straightforward,  as  displayed 
in  figure  23. 


-r 


lint  rv  OUTPOT 


START 


Figure  23.  Subroutine  INPOT 


2.6.16  Subroutine  LOADREAD 


PURPOSE: 

r-,\TRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON'  BLOCKS  : 
SUBROUTINES  CALLED: 
CALLED  BY: 

Method: 


This  routine  reads  and  prints  booster  loading 
data. 

LOADREAD,  PRNTLQAD 
None 


None 


None 

GOPRINT  (PRNTLOAD),  RDCARDF  (LOADREAD) 


This  subroutine  is  currently  a dummy  routine.  Its  purpose  will  be  to 
read  data  on  variable  booster  loadings  within  a group  and  also  to  print 
that  data.  The  dummy  routine  merely  reserves  the  entry  points  for 
later  expansion  of  the  program  to  include  a variable  booster  loading 
option.  (LOADOPT  = *VARY*  = option  2) 
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2.6.17  Subroutine  NEWCOOR 


PURPOSE 

This  routine  converts  target  coordinates  from 
latitude  and  longitude  to  range  and  azimuth  from 
weapon  group  centroid. 

ENTRY  POINTS: 

NEWCOOR 

FORMAL  PARAMETERS: 

IG  - Group  Number 

COMMON  BLOCKS: 

C2,  C4 , DEBUG,  EARTH,  FILES,  Filehandler  Blocks 
(1TP,  MYIDENT,  TWORD,  NOPRINT,  F I LABEL) , HDATA, 
IFTPRNT , MYLABEL , PRINT,  RAIDATA , TS CRATCH , WPNGRPX 

SUBROUTINES  CALLED: 

DISTF,  GOPRINT,  LREORDER,  ORDER,  REORDER,  W'RARRAY 

CALLED  BY: 

FOOTPRNT 

Method: 

This  routine  converts  the  target  coordinates  for  use  by  the  footprint 
generation  subroutines.  It  is  called  once  for  each  group. 

For  each  target,  NEWCOOR  adds  the  target  point  offsets  (DLAT,  DLONG) 
to  the  target  coordinates  (TGTLAT,  TGTLONG) . The  range  from  the  weapon 
group  centroid  to  the  target  point  (RANGE)  is  then  computed  by  a call 
on  the  distance  function,  DISTF.  The  position  of  the  group  centroid  is 
given  by  the  variables  W'LAT  and  WLONfi  in  common  /WPNGRPX/.  The  formal 
parameter  IG  is  used  to  retrieve  the  correct  position. 

The  calculation  of  the  launch  azimuth  uses  spherical  trigonometry.  First 
all  the  latitudes  are  converted  to  radians  by  the  factor  DEGTORAD  in 
common  /EARTH/.  The  range  is  normalized  by  dividing  by  the  radius  of 
the  earth  (RADIUS  in  common  /EARTH/). 

% 

The  computation  of  the  launch  range  is  performed  as  follows.  Define  a 
spherical  triangle  with  vertices  at  the  group  centroid.  North  Pole  and 
target.  (See  figure  24.)  Let  angle  A (the  launch  azimuth)  be  the  angle 
between  the  line  connecting  the  centroid  and  the  North  Pole  anu  the  line 
connecting  the  centroid  and  the  target.  Measure  the  distances  between 
the  points  in  terms  of  the  number  of  radians  subtended  by  the  connecting 
lines.  If  distance  a is  the  distance  between  target  and  North  Pole,  b 
is  the  distance  between  centroid  and  target,  and  c is  the  distance 
between  centroid  and  North  Pole,  then: 


a 
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2.6.23  Subroutine  SETDATA 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS : 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


This  routine  retrieves  (from  the  ITABL  file)  and 
loads  the  correct  footprint  processing  data  into 
the  footprint  test  arrays  for  use  by  subroutines 
FOOTEST  and  GOPRINT. 

SETDATA 

I - A system  identification  number,  IMIRV 

CSYS4,  FILES,  Filehandler  Blocks  (ITP,  MYIDENT , 
TWORD,  MYLABEL,  NOPRINT,  FILABEL) , FOOTDATA , HDATA , 
IFTPRNT , PARAMETR,  PENADD,  SHRTDAT , T SCRATCH 

ABORT,  RDARRAY,  RDWORD,  SETREAD,  SKIP,  TERMTAPE 

FOOTPRNT , PRNTABLE 


Method: 


Jt 

4 


This  routine  merely  moves  data  from  the  footprint  parameter  scratch 
file,  ITABL,  to  the  footprint  test  arrays.  (See  table  8.)  As 
subroutine  TABLINPT  reads  the  footprint  parameter  data,  it  writes  them 
on  the  ITABL  file. 

SETDATA  first  retrieves  the  system  MTYPE  and  IDATA  from  those  a ays 
in  common  /PARAMETR/,  using  the  formal  parameter  I,  as  an  index. 

SETDATA  then  determines  if  the  correct  system  data  are  already  in  the 
footprint  testing  storage.  If  so,  the  routine  exits.  Otherwise  the 
ITABL  file  is  searched  for  the  correct  data.  (Table  9 shows  the  format 
of  this  file.)  If  the  data  are  not  found,  the  filehandler  will  abort 
the  run.  Upon  finding  the  data,  SETDATA  transfers  them  to  the  appro- 
priate array  as  listed  in  table  8. 

Subroutine  SETDATA  is  illustrated  in  figure  31. 


Table  8. 


Footprint  Parameter  Data  Transmission 


r 

MTYPE 

SYSTEM 

ARRAY  LENGTH 

FOOTPRINT  TESTING 
COMMON 
BLOCK 

i 

Long-Range 

LLNGDAT 

/FOOTDATA/ 

2 

Short-Range 

LSHTDAT 

/ SHRTDAT/ 

3 

Long-Range 
With  Pene- 
tration Aids 

LPENDAT 

/PENADD/ 

/FOOTDATA/ 

4 

Type -4 

LDSYS4 

/ CSYS4/ 

Table  9. 

Format  for  Footprint  Parameter  Data  Scratch  File 

Each  unique 
format : 

system  is  output 

on  the  ITABL 

file  in  the  following 

VARIABLE 

LENGTH 

DESCRIPTION 

MTYPE 

1 

MIRV  system  functional  type 

IDATA 

1 

MIRV  system  data  set  number 

"LENGTH"* 

1 

Length  of 
for  this 

footprint  parameter  table 
system 

"TABLE"** 

LENGTH 

Footprint 

parameter  table 

*For  MTYPE= 1 , LENGTH  is  LLNGDAT ; MTYPE=2 , LENGTH  is  LSHTDAT; 

MTYPE=3 , LENGTH  is  LPENDAT ; MTYPE-4,  LENGTH  is  LDSYS4  (see  table  8). 

**For  MTYPE=  1 , TABLE  is  the  FOOTDATA  conmon;  MTYPE*5 2 , TABLE  is  the 
S HRT1 ' AT  common;  MTYPE^,  TABLE  is  the  PENADD  and  FOOTDATA  commons; 
MTYPt  4,  TABLE  is  the  CSYS4  common  (see  table  8). 

' 
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Figure  31.  Subroutine  SETDATA 


2 . b . 24  Subroutine  TABLINPT 


This  routine  reads  and  prints  the  footprint 
parameter  tables,  and  saves  them  on  the  ITABL 
file. 

TABLINPT,  PRNTABLE 
None 


C4,  CSYS4,  FILES,  Filehandler  Blocks  (ITP,  MYIDENT, 
MYLABEL,  WORD,  NOPRINT,  FILABEL) , FOOTDATA , HDATA, 
IFTPRNT , PARAMETR,  PENADD,  RAIDATA , SHRTDAT, 

TS CRATCH,  WAROUT 

MUMGET,  SETDATA,  SETWRITE,  TERMTAPE,  WRARRAY, 

WRWORD 

RDCARDF  (TABLINPT),  GOPRINT  (PRNTABLE) 

Method : 

This  routine  reads  the  footprint  parameter  tables  and  stores  the  data  in 
common  block  /PARAMETR/  and  outputs  the  data  on  the  footprint  parameter 
data  scratch  file,  ITABL.  Entry  PRNTABLE  calls  subroutine  SETDATA  to 
transfer  the  data  from  the  ITABL  file  to  the  footprint  testing  parameter 
| arrays  (in  /FOOTDATA/,  /SHRTDAT/,  /PENADD/,  and  /CSYS4/)  and  then  prints 
the  data.  Common  /RAIDATA/  is  used  as  temporary  scratch  storage  by  this 
subroutine.  The  local  array  IGOT  is  used  to  store  the  IMIRV  numbers  of 
those  systems  whose  parameters  have  been  read.  NGOT  is  the  number  of 
system  data  sets  that  have  been  read. 

Each  MIRV  system  with  a unique  IMIRV  number  must  be  defined  with  a system 
title  card.*  The  data  on  this  card  are  stored  in  common  /PARAMETR/. 

(See  table  3 for  definitions  of  the  variables  in  this  block.) 

The  data  required  for  each  data  set  depends  on  the  system  type  number, 
MTYPE.  This  variable  defines  the  system  to  be  long-range,  short-range, 
long-range  with  penetration  aids  or  Type-4.  (See  table  3.)  Within  each 
type,  there  may  be  many  different  data  sets  identified  by  the  data  set 
number,  IDATA.  (The  values  of  this  parameter  need  be  unique  only  within 
each  MTYPE  value.  Hie  values  need  not  be  consecutive.)  As  each  data 
set  is  read,  it  is  output  on  the  ITABL  file  according  to  the  format  shown 
in  table  9.  A data  set  need  be  read  only  once  regardless  of  the  number  of 
systems  that  use  it.  If  the  values  of  MTYPE  and  IDATA  read  from  a system 
title  card  match  values  already  read,  then  the  routine  merely  reads  the 
next  title  card. 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

| COMMON  BLOCKS : 

SUBROUTINES  CALLED: 
CALLED  BY: 


*For  each  value  of  the  attribute  IMIRV,  there  should  be  one  title  card. 

I Hollerith  name  of  the  system  (IHNAME  in  comoon  /PARAMETR/)  is  used 
only  to  identify  the  system  in  the  print  of  the  footprint  parameter 
tables.  It  has  no  effect  on  footprint  generation. 
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Entry  PRNTABLE  retrieves  the  data  for  each  defined  system  and  prints  the 
data. 

Each  formula's  data  cards  are  preceded  by  one  system  title  card  requesting 
that  formula.  The  reading  of  data  is  terminated  by  a title  card  with  a 
zero  or  negative  IMIRV  value.  The  systems  can  be  input  in  any  order. 

If  more  than  one  IMIRV  value  refers  to  a specific  formula  for  footprint 
test  (see  below),  then  the  data  for  that  formula  must  follow  immediately 
the  first  occurrence  of  a system  title  card  requesting  the  use  of  that 
formula.  Succeeding  title  cards  with  the  same  formula  definition  need  no 
data  following  them. 

A formula  for  footprint  testing  is  defined  by  two  variables  input  on  the 
system  title  card.  The  first,  MTYPE , references  the  functional  form  of 
the  formula  to  be  used.  If  MTYPE  = 1,  the  exponential  functions  of  the 
long-range  system  are  used.  MTYPE  = 2 requests  the  short-range  functions. 
MTYPE  = 3 requests  the  long-range  system  with  a full  load  of  area  pene- 
tration aids.  MTYPE=4  requests  the  type-4  functions.  Within  each  type, 
there  are  data  sets  for  the  parameters  used  in  the  function.  Thus,  formula 
definition  requires  MTYPE,  the  functional  form  indicator,  and  IDATA,  the 
index  to  the  parameter  set.  For  example,  if  two  long-range  systems  are 
desired  there  would  be  two  formula  definitions:  MTYPE=1,  IDATA=1  ; MTYPE* 1, 

IDATA=2. 

Long-Range  System  --  MTYPE=1 

The  long-range  system  can  have  one  to  16  reentry  vehicles  on  a booster. 


The  system  functions  are  defined  by  a series  of  regression  coefficients 
which,  when  applied  to  these  functions,  produce  results  which  fit  the 
actual  physical  characteristics  of  the  MIRV  system. 


The  system  functions  are  as  follows: 

a.  Fuel  Load  at  Booster  Separation  (pounds):  Constant  with  number  of 

RVs . 


b.  Maximum  Booster  Range  (RM  in  Nautical  Miles): 
RM  = R BASIC  ♦ RADI)  * SINE  (AZIMUTH) 
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RBASIC  and  RADD  arc  functions  of  the  number  of  RVs  and  the  sign 
of  the  azimuth. 


it 

e 


1 


c.  Range  extension  Consumption:  number  of  nautical  miles  traversed 

per  pound  of  fuel 

NM/FUEL  = RX  + RAXX  * SINE (AZIMUTH) 

RX  and  RAXX  are  functions  of  the  number  of  RVs  and  the  sign  of 
the  azimuth. 

d.  RV  Toss  Equations:  nautical  miles  per  unit  fuel 

NM/FUEL  = G * (T0SSC1  + T0SSC2  * SlNE (AZIMUTH) ) 
where 

G ■ EXPF  (tEONE  * (S) 

where 

RM  = maximum  booster  range  (nautical  miles) 

R = range  to  initial  target  (nautical  miles) 

T0SSC1  and  T0SSC2  are  functions  of  number  of  RVs  originally 
on  board,  number  of  RVs  currently  on  board,  and  sign  of  launch 
azimuth . 


TETWO 


) 


TEONE  and  TETWO  are  functions  of  number  of  RVs  originally  on 
board  and  number  currently  on  board. 

TDENOM  is  a constant. 

j e . bownrangc  to  Crossrangc  Multiplier  (CROSS OWN) : 


CROSSDWN  = G * (CONE  + CTWO  * SINE (AZIMUTH) ) 
where 


G = EXPF 


( eone  * ( ■ — ^ 

I tUINL  ^ OENOM  ) 


*ETWO' 


CONE  and  CTWO  are  functions  of  the  number  of  RVs  currently  on 
board  and  the  sign  of  the  azimuth. 

EONE  and  ETWO  are  functions  of  the  numoer  of  RVs. 

DENOM  is  a constant. 


i 
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hownrange  to  Up range  Multiplier  fUPTODOWN) 
UPTODOWN  = G * (UCl  + UC2  * SINE (AZIMUTH) ) 


UCl  and  UC2  are  functions  of  the  number 
board  and  the  sign  of  the  azimuth. 


of  RVs  currently  on 


UEl  and  UE2  are  functions 


of  the  number  of  RVs. 


UDEN  is  a constant. 
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Short-Range  System  --  MTYPE=2 


This  system  does  not  consider  launch  azimuth.  It  considers  configurations 
containing  from  1 to  16  RVs  on  board.  The  system  functions  are  as 
follows:  (Let  R be  the  distance  in  nautical  miles  from  the  launch  base 

to  the  initial  target  in  the  footprint.)  The  parameters  for  this  type  are 
also  coefficients  calculated  by  a curve  fit  to  observed  physical  data. 

a.  Fuel  Load  at  Booster  Separation: 

TF  = BETATWO  * R2  + BETONE  * R + BETAZ 
The  parameters  are  functions  of  the  number  of  RVs  on  board. 

b.  Maximum  Booster  Range:  This  is  a parameter,  MAXRBOOST,  as  a 
function  of  the  number  of  RVs  carried  to  the  first  target. 


c.  RV  Toss  Consumption  Equations: 


5 

- 


NM/unit  fuel  = ALP1LATW0  * R“  + ALPHAONE  * R + ALPHAZ 
These  parameters  are  functions  of  the  number  of  RVs  on  board. 

d.  Downrange  to  Crossrange  Multiplier: 

CROSSDWN  = GTWO  * R2  + GONE  * R + GZERO 
These  parameters  are  constant. 

e.  Downrange  to  Uprange  Multiplier: 

UPDOWN  = DONE  * R + DZERO 
These  parameters  are  constant. 


Long-Range  System  With  Penetration  Aids:  MTYPE=3 

This  system  is  similar  to  the  long-range  system  (MTYPE=1).  The  equation 
forms  are  the  same  except  for  the  first  set,  fuel  load  at  booster 
separation.  All  the  other  constraints  have  the  same  functional  form  as 
the  previous  type. 

Calculation  of  the  fuel  load  at  booster  separation  is  as  follows: 
a.  Fuel  Available  for  Footprinting:  (FAFF  in  pounds) 

FAFF  = TGAS  - SRF 
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PFECEDIFG  PATELLA NK-NOT  EILR 


•^CS.taga> 
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TGAS  - Total  fuel  load  on  board  last  state  (pounds) 

SRF  - Fuel  required  to  space  and  release  penetration  aids  and 
reentry  vehicles 

b.  Spacing  and  Release  Fuel:  (SRF  in  pounds) 

SRF  = G * (SRFC1  + SRFC2  * SINE (AZIMUTH) ) 
where 

G = EXPF  ^SRFEXPl  * 
where 

RM  = maximum  booster  range  in  nautical  miles 
R = range  from  launch  base  to  first  target  in  footprint. 

| SRFDEN  is  a constant. 

SRFC1,  SRFC2 , SRFEXP1,  and  SRFEXP2  all  depend  on  the  number 
of  RVs  initially  on  board  the  booster. 

Note : The  long-range  system  with  MTYPE=1  is  a special  case  of  this  type. 

For  the  former  system,  the  spacing  and  release  fuel  is  considered  to  de- 
pend only  on  the  number  of  RVs  initially  on  board.  Thus  the  detailed 
computation  of  this  fuel  is  unnecessary. 

| Type-4  System  --  MTYPE=4 

The  Type-4  system  can  have  one  to  16  RVs  on  board.  The  parameters  for 
this  type  are  coefficients  calculated  by  a curve  fit  to  observed  data. 

a.  RV  Toss  Fuel  Consumption  Equations: 

2 

NM/unit  fuel  - A2  * R + Al  * R +A0 

R is  the  range  from  the  launch  base  to  the  initial  target. 

The  parameters  are  functions  of  the  number  of  RVs  on  board. 

b.  Fuel  Load  at  Booster  Separation: 

TF  = B2  * R2  + Bl  * R + BO 

The  parameters  are  functions  of  the  number  of  RVs  on  board. 

c.  Maximum  Booster  Range: 

RM  = BRANGE  + BKADD  * SINE (AZIMUTH) 
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The  parameters  are  functions  of  the  number  of  RVs  on  board 
and  the  sign  of  the  azimuth. 


d • Downrange  to  Crossrange  Multiplier: 

CROSSDWN  - C*  + 1 -C'  ** (R*SINE (AZIMUTH) /CRDEN) 

for  positive  azimuths  and 

CROSSDWN  = C -1  + C ** ( “R*S INE (AZ IMUTH) /CRDEN) 

for  negative  azimuths 
2 

where  C'  = CR2  * R + CRl  * R + CRO 
These  parameters  are  constants. 

e*  Downrange  to  Uprange  Multiplier: 

2 

UPDOWN  = UD2  * R + UDl  * R + UDO 
The  parameters  are  constants. 

Subroutine  TABLINPT  is  illustrated  in  figure  32. 
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START 


Entry 

TABLINPT 


Read  Next 
System  Title 
Card 


Is  IM1KV  Value  \ No 
Positive? 

TTTs 


Does  MTYPE 
Match? 

Does  I DATA 
Match? 


/Write  Zero 
Word  On  f 
ITABL  / 


Write  OTYPE  And 
1 DATA  On  ITABL 
File 


1000, 2000, 300Q,f  4000 

/Read  Appropriate 
Table  And  Write  Out 
On  ITABL  File  / 


Figure  32.  Subroutine  TABLINPT  (Part  1 of  2) 
Part  I:  Entry  TABLINPT 
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2.6.25  Subroutine  TEST 
PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS : 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 

Method : 


This  subroutine  is  the  interface  between  the  assignment  section  of  the 
program  and  the  testing  section.  It  loads  the  RIN  and  THIN'  arrays  in 
common  /FOOTIO/  from  the  data  in  the  hit  list  (IHIT  in  /POTENT/)  and  the 
temporary  data  arrays  (RP  and  TP  in  /C3/). 

The  only  logical  complication  to  this  routine  is  the  result  of  the 
booster  loading  options  that  require  that  the  minimum  load  constraint 
must  be  met  by  every  booster;  i.e.,  LOADOPT>3*.  In  this  case,  if 
there  are  not  enough  targets  in  the  hit  list  to  meet  the  requirement, 
subroutine  TEST  adds  the  needed  RVs  to  the  first  target  in  the  list. 

Since  it  uses  the  same  method  to  add  RVs  as  subroutine  ADDRV,  this 
addition  guarantees  that  no  footprint  will  be  declared  feasible  unless 
it  can  contain  at  least  the  required  minimum  load.  The  number  of  RVs 
added  is  stored  in  the  local  variable  NOFFSET.  This  variable  is  used 
to  manipulate  the  data  arrays  to  show  the  correct  entries  for  each  real 
target  in  the  footprint.  If  the  footprint  with  the  added  vehicles  proves 
feasible,  one  of  the  added  vehicles  is  removed  and  FOOTEST  is  called 
again.  This  second  call  is  required  to  load  the  correct  values  in  the 
DELRAFT  and  TOFLY  arrays. 

Subroutine  TEST  is  illustrated  in  figure  33. 


Input  value  = MNLREQ 


This  routine  sets  up  the  test  arrays  in  common 
/FOOTIO/  for  footprint  testing. 

TEST 

None 

Cl,  C3,  DEBUG,  FOOTIO,  LOADATA,  PARAMETR,  POTENT, 
PRINT 

FOOTEST,  GOPRINT 

CHKSEQ , FUELSAVE,  IMPROVE,  OPTBOOST 
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Is  Booster  Loading  \ Yes , 
Option  MNLREQ  ? / 


Remove  One  Of 
The  Added  RVs 


I Request  Optional  Prints 


FOOTFST 


Restore  Feasibility  Counter 
And  FOOTIO  Arrays 


Figure  33.  Subroutine  TEST 
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2.6.26  Subroutine  TRANSFER 


PURPOSE : 


This  routine  transfers  blocks  of  data  from  the 
TMPALOC  file  to  the  ALOCGRP  file. 


ENTRY  POINTS: 


IN ITRANS , TRANSFER 


FORMAL  PARAMETERS:  N - See  below 


COMMON  BLOCKS:  C4,  DEBUG,  Filehandler  Blocks  (ITP,  MYIDENT, 

MYLABEL,  TWORD,  NOPRINT,  FILABEL) , IFTPRNT , PRINT, 
RA I DATA 


SI'  BROUT INES  GALLED  : GOPRINT,  RDARRAY , WRARRAY 

CALLED  BY:  FOOTPRNT 


Method: 

These  two  entries  are  used  to  transfer  data  from  the  TMPALOC  file  to  the 
ALOCGRP  file. 


Entry  IN ITRANS 

The  formal  parameter  N is  the  logical  unit  number  of  the  file  to  which 
data  are  to  be  transferred.  This  unit  number  is  saved  in  variable 
I WRITE,  and  control  is  returned  to  the  calling  program. 


Entry  TRANSFER 

For  this  entry,  the  formal  parameter  N specifies  the  number  of  words  of 
data  that  are  to  be  read  from  file  ITP  (or  I READ)  and  written  on  logical 
file  number  1WRITE.  The  words  are  merely  transferred  from  one  tape  to 
the  other.  TRANSFER  assumes  subroutine  SETWRITE  has  been  called  for 
file  I WRITE. 

Note : The  length  of  common  /RAIDATA/  from  the  beginning  to  ERAID  is 

stored  in  ERAID.  Since  TRANSFER  uses  this  length  in  determining  the 
size  of  temporary  storage,  changes  in  common  /RAIDATA/  should  be 
reflected  in  this  variable. 

Subroutine  TRANSFER  is  illustrated  in  figure  34. 
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START 


I 


Entry 
) TRANS  FIT 


Save  Read 
Unit 


I 


Will  Number  Of 
Words  Fit  In 
RA I DATA  Block? 


40 


z 


Read  Words 
From  Read 
Fi  le 


Compute  Number  Of  Times 
Block  Must  Be  Filled  (NTIMES) 
.And  Number  Of  Words  Left 
Over  (NEX) 


I 


60 


■Hilo  NTIMES 


Done 


1 


Do 


Read  NEX 
'Words  From i 
Read  File/ 


Read  Words  To 
Fill  /RAI DATA/ 
From  Read  File, 


70 


I 


50 


I 


Write  NEX 
Words  On 
Write  File/ 


Write  Words 


30 


Write  Words/ 
On  Write 
Fi  le 


I 


Restore  Read 
Unit  Number 


9999 


I 


( 


Restore  Read 
Unit  Number 


/ From  /RAI DATA/ 
j To  Wri  te  Fi  le 

/ 

^ START  ^ 

I 



Restore  Read 
Unit 
Number 

Save  Write 

Unit  Number 

( RETURN  J 


Figure  34.  Subroutine  TRANSFER 
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2.6.27  Function  UPTODOWN 


PURPOSE : 

This  function  computes  the  multiplier  hv  which 
uprange  distance  must  be  multiplied  to  calculate 
equivalent  downrange  distance. 

ENTRY  POINTS: 

UPTODOWN 

FORMAL  PARAMETERS: 

I - System  type  - MTYPE 

R - Range  to  first  target  (nautical  miles) 
AZ-  Launch  azimuth  of  booster  (radians) 

N - Number  of  reentry  vehicles  carried 

COMMON  BLOCKS: 

CSYS4,  FOOTDATA,  PF.NADD , PRINT,  SHRT DAT 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

BOOSTIN,  EVAL,  FOOTEST 

Method : 

This  function  computes  the  uprange -to -downrange  distance  multiplier  for 
use  by  the  footprint,  testing  subroutines.  It  uses  the  equations  displayed 
in  the  discussion  of  subroutine  TABLINPT.  This  function  merely  uses  a 
computed  GO  TO  statement  to  direct  processing  to  the  correct  equation. 

The  system  type  (formal  parameter  I)  determines  which  equation  is  used. 

The  remaining  formal  parameters  provide  the  data  for  the  multiplier 
calculation. 


Function  UPTODOWN  is  illustrated  in  figure  35. 


2.6.28  Function  VALF 


PURPOSE : 


ENTRY 

POINTS: 

FORMAL 

PARAMETERS : 

COMMON 

BLOCKS: 

SUBROUTINES  CALLED 

CALLED 

BY: 

Method : 

This  function  provides  intertargct  values  for 
use  in  the  worth  calculation. 

VALF 

X - A ratio  of  distances 
FN  - A weighting  parameter 

None 

None 

FOOTPRNT,  EVAL,  BOOST IN 


This  function  merely  computes  values  for  the  following  equation: 


VALF 


( (1  - X)/U  + (X  * FN)) 

(o 


X <1 
X >1 


Figure  36  displays  representative  curves  for  this  function  for  three 
values  of  FN. 

The  formal  parameter  X (usually  called  ALPHA  in  the  calling  program)  is 
a ratio  of  intertarget  equivalent  downrange  distance  to  a maximum  feasible 
equivalent  downrange  distance.  The  formal  parameter  FN  is  a 
weighting  parameter*  v FN  increases,  the  value  declines  more  rap; 
with  increasing  values  of  X.  Increasing  FN  has  the  effect  of  increasing 
the  worth  of  targets  with  many  close  neighbors. 

Function  VALF  is  illustrated  in  figure  37. 
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Table  10. 

WORD 

1 

2 

3 

4 

5 

6 

7-y 

10 

11 

12 

13 

14-17 

18 

19 

20-37 

38-55 

56-73 

74-91 

92-109 

110-127 

128-145 

146-163 

164-181 

182-199 

200-217 

218- 235 

236- 253 

254-271 

272-289 

290 


*The  first  word  output 
records  follow. 


STRKFILE  Format  (Missile  Record)* 

Written  From  Array  EVTDATA 

DESCRIPTION 

ISORTN  (Sortie  Sequence  Number) 

Side 

Command  and  control  index 
Croup  index 

Plan  delay  (alert  or  non  alert) 

Payload  index 
Zero 

Missile  type 
1CLASS=1 
Launch  region 
Alert  status 
Zero 

Number  of  missiles 
Number  of  targets 
Missile  indices 
Site  indices 
Target  indices 
Offset  latitude 
Offset  longitude 
Flight  times  in  hours 
Weapon  site  latitude 
Weapon  site  longitude 
Target  latitude 
Target  longitude 
Designator  code  of  target 

Task  and  country  owner  codes  of  target 

Country  code  of  target 
Flag  code  of  target 
Missile  salvo  number 

Logical  Array  (of  18  elements)  containing 
height  of  burst  for  each  strike 

on  the  STRKFILE  is  TARi’AC;  missile  and  bomber 
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Table  11. 


STRKFILE  Format  (Bomber  Record)* 
Written  From  Common  OUTSRT 
(Part  1 of  2) 


WORD 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 

14-23 

24-33 

34-43 

44-53 

54-63 

64-73 

74-83 

84-93 

94-103 

104-113 


PI -SCR  FIT  I ON 

ISORTN  (Sortie  Sequence  Number) 

Sortie  index 

Group  index 

Corridor  index 

Vehicle  index 

Refuel  index 

Pepenetrat ion  index 

Payload  index 

Base  index 

Weapon  type 

Base  latitude 

Rase  longitude 

Number  of  targets 

Type  of  target 

Latitude  of  target 

Longitude  of  target 

Latitude  of  weapon  offset 

Longitude  of  weapon  offset 

Index  of  target 

Designator  code  (DESIG)  of  target 
Task  and  country  owner  codes  of  target 
Country  code  of  target 
Flag  of  target 


♦The  first  word  output  on  the  STRKFILE  is  TARFAC;  missile  and  bomber 
records  follow. 
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Table  13.  (Part  7 of  9) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

/C3/* 

DESIG(1030) 

Target  designator  codes 

(cont . ) 

TASK (1030) 

Target  task  and  country  owner  code! 

CNTRYLOC (1030) 

Target  country  location  codes 

FLAG (1030) 

Flag  codes  for  targets 

| NT  ’ 

Total  number  of  targets  assigned 
to  group 

JGR0UP 

Group  number 

JC0RR 

Corridor  number  (=0) 

** 

INDEXN0(1 130) 

Index  numbers  of  targets 

Input 

(negative  if  first  target 

record  ' 

assigned  to  booster) 

from 

ALOCGRP 

TLAT (1130) 

Target  latitude  (degrees) 

or  . 

TMPALOC  \ 

TLONG(1130) 

Target  longitude  (degrees) 

file 

\ INTOT (1130) 

Not  used 

RVAL 

Relative  value  of  strike 

DLAT  C 1 130) 

Offset  latitude  (degrees) 

DL0NG( 1130) 

Offset  longitude  (degrees) 

DESIG(1130) 

Target  designator  code 

TASK(1 130) 

Target  task  and  country  owner  codes 

C NTRYL0C (1130) 

Target  country  location  code 

, FLAG(11 30) 

Flight  time  code 

FTIME 

Flight  time  matrix 

EVTDATA(288) 

Missile  record  as  output  to 
STRKFILE  (see  discussion  of 
STRKFILE  output  for  redefini- 
tion of  this  array) 

LXLFDCMI  (32) 

Logical  array  indicating  missile 
fixed  assignment 

ISAL(1 130) 

Salvo  number 

DUM(  1 566) 

Unused 

As  used  when  processing  a bomber  record 
As  used  when  processing  a missile  record 
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Tabic  13.  (Part  8 of  9) 


OUTPUT  DATA  FOR  STRKFILE* 


BLOCK  VARIABLE  OR  ARRAY 

/SORTNO/  1SORTN 

/OUTSRT/  IOUTSRT 

MY GROUP 
MYCORR 
INDVEH 
JREF 
JDPEN 
KPAYLOAU 
LN CUBASE 
ITYP 
BAS ELAT 
BASE LONG 
NHAP 

HAPTYPE (10) 
OBLAT(IO) 

OB LONG (10) 

PLAT (10) 

DLONG(IO) 

I OBJECT (10) 
DSIG(IO) 

TSK (10) 

CNTRLC(IO) 

FLG(IO) 

ATTROUT (10) 

SURVOUT (10) 


DESCRIPTION 

Sortie  Sequence  Number 

Sortie  index 

Group  index 

Corridor  index 

Vehicle  index 

Refuel  index 

Depenetration  index 

Payload  index 

Base  index 

Weapon  type 

Base  latitude 

Base  longitude 

Number  of  targets 

Type  of  target 

Latitude  of  target 

Longitude  of  target 

Latitude  of  weapon  offset 

Longitude  of  weapon  offset 

Index  of  target 

Designator  number  of  target 

Task  and  country  owner  codes  of  target 

Country  code  of  target 

Flag  of  target 

Local  attrition 

Cumulative  survival  probability 


♦The  bomber  records  onlv  are  written  from  common  block  /OUTSRT/and  /'SORTNO/; 

the  missiles  are  handled  separately. 
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Table  14.  (Part  2 of  2) 


WORD  OF 
EVTDATA 

DESCRIPTION 

EQUIVALENCED  TO: 

217-234 

Task  and  country  owner 
codes  of  target 

KTASKQ8) 

235-252 

Country  code  of  target 

KCNTRYLC(IS) 

253-270 

Flag  code  of  target 

KFLAG(18) 

271-288 

Salvo  number 

KSALl 18) 

289 

Logical  array  containing 
weapon  height  of  burst 

LXMYHOB ( 1 ) 
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Table  15.  Program  POSTALOC  Internal  Common  Blocks 
(Part  1 of  16) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

/ARAYSI.ZE/ 

MBASEPG 

Maximum  number  of  bases  (or 
squadrons)  per  group  (150) 

MC 

Maximum  number  of  corridors 
(30) 

MT 

Maximum  number  of  targets  per 
group  (1,100) 

ML 

Maximum  separate  defended  zones 
per  entry  (three) 

MSTRK 

Maximum  strikes  per  ‘ortie 
(10) 

MSORTY 

Maximum  sorties  per  group 
(100) 

MSRT 

Maximum  sorties  per  group  per 
corridor  (100) 

MFLY 

Maximum  number  of  points  in  JHIT 
and  I FLY  lists  (13) 

MAX  PA 

Maximum  number  of  points 
allowed  by  array  size  (25) 

/CHGPLN/ 

(In  effect,  part  of  calling 
sequence  for  subroutine  C11GPLAN) 

JDO 

SORTYTGT  index  for  target  to  be 
added  or  deleted  by  CHGPLAN 

IAIM 

SORTYTGT  index  to  flight  point 
for  ASM  launch 

I SCAN 

Controls  number  of  sortie  points 
scanned  by  EVAL  routines 

JAFT 

SORTYTGT  index  to  target  to 
precede  insertion 

ATO,  OTA,  BTO,  0TB 

Calling  parameters  for  CHGPLAN 

/CONTROL/ 

EPSILON 

Set  to  1001;  used  in  tests  of 

significance 


^Parenthetical  values  indicate  array  dimensions.  All  other  elements  are 
single  word  variables. 
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Table  18.  Bomber  Record,  STRKCHNG  File 
(Part  1 of  2) 


WORD 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16-25 

26-35 

36-45 

46-55 

56-65 

66-75 

76-85 

86-95 

96-105 

106-115 

116-125 

126-135 

136 


DESCRIPTION 

Sortie  sequence  number 

STRKCHNG  indicator  information  record 

Sortie  sequence  number* 

Sortie  index 
Group  index 
Corridor  index 
Vehicle  index 
Refuel  index 
Depenetration  index 
Payload  index 
Base  index 
Weapon  type 
Base  latitude 
Base  longitude 
Number  of  targets 
Type  of  target 
Latitude  of  target 
Longitude  of  target 

Latitude  of  weapon  offset 
Longitude  of  weapon  offset 
Index  of  target 

Designator  code  (DESIG)  of  target 
Task  and  country  owner  code  of  target 
Country  code  of  target 

Flag  of  target 
Local  attrition 

Cumulative  survival  probability 
Low-altitude  range  (precorridor  legs) 


*This  record  appears  if  STRKCHNG  indicator  is  nonzero. 
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Table  18.  (Part  2 of  2) 


WORD 

DESCRIPTION 

137 

Low-altitude  range  (before  first  target) 

138 

Low-altitude  range  (after  first  target) 

139 

Speed  at  low  altitude 

140 

Speed  at  high  altitude 

141 

Range  of  vehicle  without  refueling 

142 

Range  of  vehicle  with  refueling 

143 

Delay  before  takeoff 

144 

Regional  index 

145 

Alert  status 

146 

Bomber  identification 

147 

Available  low-altitude  range 

148 

Range  decrement  at  low  altitude 

149 

Distance  to  recovery 

150 

Distance  to  origin 

151-160 

Effective  distance  between  target 

161-170 

Height  of  burst  information 

171-180 

Change  in  time  information 

191-200 

Change  indicators  for  targets 

201 

Height  of  burst  indicator 

202 

Change  of  time  indicator 

Table  19.  Missile  Record,  STRKCHNG  File 
(Part  1 of  2) 


WORD 

DESCRIPTION 

1 

Sortie  sequence  number 

2 

STRKCHNG  indicator  information  record 

3 

Sortie  sequence  number* 

4 

Side 

5 

Command  and  control  index 

6 

Group  index 

7 

Time  of  launch 

8 

Payload  index 

9-11 

, Zero 

12 

Missile  type 

13 

ICLASS= 1 

14 

Launch  region 

15 

Alert  status 

16-19 

Zero 

20 

Number  of  missiles 

21 

Number  of  targets 

22-39 

Missile  indices 

40-57 

Site  indices 

58-75 

Target  indices 

76-93 

Offset  latitude 

94-111 

Offset  longitude 

112-129 

Flight  times  in  hours 

130-147 

Weapon  site  latitude 

148-165 

Weapon  site  longitude 

166-183 

Target  latitude 

184-201 

Target  longitude 

202-219 

Designator  code  of  target 

220-237 

Task  and  country  owner  codes  of  target 

238-255 

Country  code  of  target 

*This  record  is  only  provided  when  STRKCHNG  indicator  is  nonzero. 


Table  19 


(Part  2 of 


WORD 

DESCRIPTION 

256-273 

Flag  code  of  target 

274-291 

Missile  salvo  number 

292-309 

Height  o{  burst  code 

310-327 

Delta  time  information 

328-345 

Change  indicators  for  targets 

346 

Height  of  burst  indicator 

347 

Change  of  time  indicator 

342 


Table  26.  (Part  2 of  2) 


Plan  Information  Blocks: 

One  block  for  each  event  in  plan  (regular  or  refuel  abort) 
WORD  DESCRIPTION 

1 Time  increment  since  last  event 

2 Place  index 

3 Event  type 

4 Latitude  of  event 

5 Longitude  of  event 

6 Offset  latitude  ^ 

7 Offset  longitude  ) ^or  weaPon 

8 Warhead  index 

9 Damage  expectancy 

10  Cumulative  time  to  event 


Target  Information  Block: 

One  block  for  each  weapon  delivery 

WORD  DESCRIPTION 

1 Index  number  for  target 

2 Target  designator  code 

3 Target  task  and  country  owner  code 

4 Target  country  location  code 

5 Target  flag  code 

6 Height  of  burst  code 
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Table  27. 


Format  of  PLANTAPE  Record 
(Missile  Plans) 

(Part  1 of  2) 


Header  Block  : 

WORD 

1 

2 

3 

4 

5 

6-7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17-22 

23 

24 

25 

26 


DESCRIPTION' 

Sortie  sequence  number 
Side 

Group  index 
Zero 

Missile  record  counter 
Zero 

ICLASS  (=1) 

Missile  type  (ISINfTYPE) 

Launch  region 

Alert  status 

Payload  index 

Salvo  number 

Number  of  missiles 

Number  of  targets 

Time  of  launch  in  hours 

Zero 

Warhead  type 

Missile  type  (Plan  Generator  type) 

Missile  function  code 

End  sentinel  (=4HLAST  after  last  good 
record;  zero  otherwise) 


Target  Information  Blocks: 

One  block  for  each  target  in  plan 

WORD  DESCRIPTION 

1 Flight  time 

2 Site  index 
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Table  27.  (Part  2 of  2) 


WORD 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 


DESCRIPTION 

Missile  index 

Target  latitude 

Target  longitude 

Weapon  site  latitude 

Weapon  site  longitude 

Warhead  type 

Reliability 

Target  index  number 

Target  designator  code 

Target  task  and  country  owner  codes 

Target  country  location  code 

Target  flag  code 

Height  of  burst  code 


Header  Block- 


Table  28.  Format  of  PLANTAPE  Record 
(Tanker  Plans) 


DESCRIPTION 

Zero  (tankers  are  not  assigned  sortie  sequence 
numbers) 


12-13 


15-25 


Group  number 


Sortie  number 
Base  index  number 
Vehicle  index  number 
ICLASS  = 3 
Weapon  type  index 


Alert  status 


Total  number  of  events 


End  sentinel  (=4HLAST  after  last  good 
record;  zero  otherwise) 


Plan  Information  Blocks-' 


One  block  for  each  event  in  plan 


DESCRIPTION 


Time  increment  since  last  event 

Place  index 

Event  index 

Latitude  of  event 

Longitude  of  event 

Cumulative  time  to  event 
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4.4.3  Output  Files  from  Overlay  INTRFACE . INTRFACE  produces  two  output 
tapes,  all  containing  80-column  BCD  card  images. 

a.  The  STRIKE  tape  (PTAPE)  containing  strike  card  ("S"  card)  type 
data  for  each  missile  and  bomber  weapon  scheduled  for  delivery 
(for  bombers,  only  the  weapons  associated  with  the  primary 
plan  are  considered).  The  strike  card  format  is  shown  in  table 
29. 

b.  The  sortie  specifications  tape  (ABTAPE) . This  tape  contains 
a set  of  BCD  card  images  for  each  missile,  bomber (primary 
mission),  and  tanker  plan  contained  on  the  PLANTAPE.  A card 
set  consists  of  one  "A"  card  which  contains  general  descriptive 
information  and  a variable  number  of  "B"  cards  which  define 
the  individual  flight  legs  of  the  mission.  The  "A"  and  "B" 
card  formats  are  described  in  tables  30  and  31,  respectively. 

4 . 5 Common  Block  Definition 

4.5.1  External  Common  Blocks.  The  common  blocks  used  by  program 
PLANOUT  in  processing  input/output  (I/O)  files  are  grouped  by  overlays. 
Those  used  by  PLANO 1 , the  first  overlay  are  shown  in  table  32;  PLNTPLAN 
external  common  blocks  are  shown  in  table  33;  INTRFACE  (external  and 
internal)  common  blocks  are  shown  in  table  34 

4.5.2  Internal  Common  Blocks.  In  addition  to  the  common  blocks  associ- 
ated with  I/O  operations,  the  common  blocks  used  internally  by  program 
PLANOUT  are  given  in  table  35  for  overlay  PLANOl,  and  in  table  36  for 
overlay  PLNTPLAN.  INTRFACE  internal  common  blocks  are  included  in  pre- 
viously referred-to  figure  34. 


\ 


»• 
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Table  29.  Format  of  Strike  Card  on  STRIKE  Tape 
(Part  1 of  2) 

CARD  VARIABLE 


COLUMN 

NAME 

INFORMATION 

CONTI!  NT 

1 

Strike  card  indicator 

S 

2 

Zero 

0 

3 

ICMD 

Command  or  function  code 

1-9 

4-8 

IS0RTN 

Sortie  sequence 

number 

00001-99999 

9-10 

LDAY 

Month 

01-12 

11-12 

DAHj 

DMIMO 

Day  ) 

01-31 

13-14 

1 

Hour  of  target  detonation 

00-23 

15-16 

i 

Minutes  \ 

00-59 

17-18 

YEAR 

Seconds 

00-59 

19-20 

LATTGT 

Degrees  \ 

21-22 

Minutes  I 

Latitude 

of 

23-24 

Seconds  ( 

target 

25 

North  or  South  ] 

1 

N or  S 

26-28 

LONCTT 

Degrees 

29-30 

Minutes  j 

Longitude 

of 

31-32 

Seconds 

target 

33 

East  or  West 

E or  W 

04 

1 

W 

CO 

JDESIG 

Target  designator 

2 Alpha, 

3 Numeric 

39-40 

IPLS 

PLS  - Probability  of  prelaunch 

* k 

-1-99 

survival 

>— * 
1 

-U 

N> 

IPTP 

PTP  - Penetration  probability 

k 

-1-99 

43-44 

1WSR 

WSR  - Weapon  system  reliability 

k 

-1-99 

45 

I REG 

Region  code 

46-48 

IFRAC 

Fission/yield  ratio 

000-999 

49 

Blank 

50-54 

IYIELD 

Weapon  yield  (KT) 

00001-99999 

55-57 

KHOB 

liOB  (Height  of  burst  in 

000-999 

hundreds  of  feet) 

A value  of 


-1  implies  100  percent  probability 
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Table  29.  (Part  2 of  2) 


CARD  VARIABLE 


COLUMN 

NAME 

INFORMATION 

CONTENT 

58-60 

KCEP 

CEP  (in  100s  of  feet) 

000-999 

61-62 

I TASK 

Target  task  code 

2 Alpha 

63-64 

ICNTRY 

Code  for  country  of  target 
location 

2 Alpha 

65-66 

ICOWN 

Code  for  country  of  target  owner 

2 Alpha 

67-68 

IPABORT 

Percent  chance  of  target 
attrition 

00-99 

69 

ISCP 

RV  number 

1-9 

70-71 

IPLNETYP 

Plane  type  code 

01-99 

72-73 

IWPNTYPE 

Weapon  type  code 

01-99 

74-77 

I UN  IT 

Unit  number 

0001-9999 

78-79 

I SORT IE 

Sortie  number 

01-99 

80 

Blank 

Table  30.  Format,  of  "A"  Card  on  Sortie  Specifications  Tape  (A" 


CARD 

COLUMN 

VARIABLE 

NAME 

INFORMATION 

CONTENT 

1 

Card  designator 

A 

2-4 

LINEAI 

Line  number 

001-999 

5-8 

I UNIT 

Unit  number 

0000-9999 

‘ 9-10 

ISORTIE 

Sortie  number 

01-99 

11-12 

■ 

Blank 

*> 

13-14 

IPLNETYP 

Plane  type  code 

Ql-99 

15 

Zero 

0 

16-17 

Blank 

18 

Zero 

0 

19-22 

IREFTIME 

Reference  time  (launch 
hours  and  minutes) 

time  in 

0000-9999 

23 

ITIMEREF 

Time  reference 

1 = launch 

24-30 

Zero 

0000000 

31 

Blank 

32-34 

LANPLTYP 

Plane  type  Mnemonic 

3 Alpha 

35 

Blank 

36-37 

LCNTRY 

Country  Code  of  launch 

base 

2 Alpha 

38 

Blank 

39-40 

% 

ICMD 

SAGA  Vehicle-Function  ( 

Code 

1=1 CBM 
2=  IRBM 
3=MRBM 
5=SSB/ SSBN 
6=SSGN 
7=LRA 
0,4,8, 9 
not  used 

41-80 

Blank 
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Table  31. 

Format  of  "B" 
(Part  1 of  3) 

Card  on  Sortie  Specifications  Tape 

CARD 

COLUMN 

VARIABLE 

NAME 

INFORMATION 

CONTENT 

1 

Card  designator 

B 

2-4 

LINEB 

Line  number 

001-999 

5-8 

IUNIT 

Unit  number  (QUICK 
index  number) 

001-9999 

9-10 

ISORTEE 

Sortie  number 

01-99 

11-12 

LEG 

Leg  number 

01-99. 

13-14 

TOP 

Event  or  operation 

1 - Takeoff 

type  indicator 


2 - Aerial  refueling 

3 or  4 - Dogleg 

5 - Not  used 

6 - ASM  launch 

7 - ASM  on  target 

8 - Decoy  release 

9 - Decoy  impact 

10  - Missile  or  bomb  on 

target 

11  - MIRV  on  target 

12  - Not  used 

13  - Recovery  if 

bomber.  Splash 
if  air  breathing 
missile. 

14  - Splash  (Ballistic 

Missiles) 


PFSCEDIIG  PAClE^flLANK-NcT  FILMED 


$ i 

Table  31.  (Part  2 of  3) 


CARD 

VARIABLE 

COLUMN 

NAME 

INFORMATION 

CONTENT 

15-19 

IDES 

Location  identifier  for 
given  operation  code. 
The  contents  column 
shows  the  entry  associ- 
ated with  the  following 

* 

codes . 

I0P=  1 

Base  index 
INDEXNO 

= 2 

Area  number 

= 3 

Zeros 

= 4 

Zeros 

= 6 

00001 

= 7 

Target  DESIG  Code 

[ 

= 8 

00001 

i 

= 9 

00001 

* 

-10 

Target  DESIG  Code 

= 11 

Target  DESIG  Code 

= 13 

Recovery  base 
INDEXNO  if  bomber 

20-25 

LAT 

Latitude  at  end  of  leg 

(Degrees,  minutes 
seconds) 

26-33 

LON 

Longitude  at  end  of  leg 

(Degrees,  minutes 
seconds) 

1 34 

1 

MODE 

Mode  of  operation 

1 - High  altitude 
4 - Low  altitude 

35 

Zero 

0 

„ f 36-41 

ICTJMTmE 

Time  of  event 

Hours,  minutes, 
and  seconds 

*:!  42 

ISOUTH 

Southern  Latitude 

S if  southern 

’I 

indicator 

latitude,  blank 
if  not 
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Table  31.  (Part  3 of  3) 


CARD  VARIABLE 


COLUMN 

NAME 

INFORMATION 

CONTENT 

43-44 

IS  CP 

Sequential  warhead 
number 

01-10 

45 

Zero 

0 

46 

Blank 

47-49 

CAZIM 

Launch/Back  Azimuths  in 
degrees 

000  - 360 

50 

IE  CM 

ECM 

0 - Off 

1 - On 

51 

Zero 

0 

52-53 

IPARl 

Warhead  type 

01-99 

54 

IHXX 

Height  of  burst  (HOB) 

0 - Ground 

55-66 

Zeros 

1 - Air 

57-58 

IPLNETYP 

Plane  type  code 

01-99 

59-60 

ICNTRY 

Code  for  country  of 
target  location 

2 Alpha 

61 

IREGB 

Region  code 

1-9 

62 

Blank 

63-64 

ITASK 

Target  task  code 

2 Alpha 

65-67 

IHXXX 

Height  of  burst 
(hundreds  of  feet) 

000-999 

68-72 

LYIELD 

YIELD (MT) 

00001-99999 

73-75 

JCEP 

000-999 

CEP  (100's  feet) 

76-77 

ICOWN 

Code  for  country  of 
target  owner 

2 Alpha 

J - 


Table  33. 


(Part  6 of  6) 


INPUT  FROM  STRKCHNG  FILE 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

STRKCHNG  header  (see  STRKCHNG  format) 

/CONTRl/ 

LREAD(2) 

File  control  parameters  (fully 
described  under  Internal  Common 
Block  section) 

Sortie  Sequence  Number  and 
STRKCHNG  indicator.  Bomber  or 
missile  plans  follow  if  indica- 
tor is  nonzero;  else  STRKFILE 
plans  are  used  for  this  sortie 

/BLOCK/ 

LOCK/BLOCK(320) 

Missile  plan;  identical  to  STRKFILE 
record  (see  STRKFILE  format) 

/OUTSRA/ 

HOBM(18) 

Change  arrays  for  missile  plans 
Height  of  burst  information 

DLTAM( 18) 

Change  in  time  information 

INDRM(18) 

Change  indicator  for  targets 

IHOBM 

Height  of  burst  flag 

ICTIMEM 

Change  time  flag 

DISTEM  (36) 

Dummy  Array 

/OUTSRT/ 

Bomber  plan;  identical  to  STRKFILE 
record  (see  STRKFILE  format) 

/OUTSRA/ 

DISTE(IO) 

Change  arrays  for  bomber  plans 
Effective  distance  between  targets 

HOB (10) 

Height  of  burst  information 

DLTA(IO) 

Change  in  time  information 

INDR (10) 

Change  indicators  for  targets 

IOHOB 

Height  of  burst  flag 

ICTIME 

Change  time  flag 

OUTPUT  DATA  FOR 

EVENTAPE 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

BLOCK 

LOCK/ BLOCK (320) 

Initially,  the  missile  plan 
record  from  STRKFILE  (see 
STRKFILE  format);  later,  the 
missile  plan  record  for  the 
EVENTAPE  and/or  PLANTAPE 

INDATA 

The  output  EVENTAPE  bomber  o: 
tanker  record  (see  EVENTAPE 
format ) 
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Table  34.  INTRFACE  Common  Blocks  (Part  1 of  4) 


BLOCK 

CUMNO 

DATE 

DIN 

FILABEL 

FILES 

FRACYLD 

GAMETIME 

IFUNC 


INTRHL 


VARIABLE  OR  ARRAY  DESCRIPTION 


ICUMNO 

TGTITIME 

DAHOMIMO 

YEAR 

LIIAY 


TGTFILE(2) 

BASFILE (2) 

IDUM(ll) 

PLANTAPE 

YIELD 

FISFRAC 

NWPN 

KMY 

KMON 

KYEAR 

IFUNC 

JFUNC 


INDFUNC 


HA 

HBLANKXX 


Cumulative  number  of  types  in 
each  class 

Time  in  hours,  since  beginning 
of  game,  of  target  hit 

BCD;  coded  day,  hour,  minute, 
of  target  hit 

BCD;  second  of  target  hit 
BCD;  month  of  target  hit 

Second  part  of  PLANTAPE  record 
for  missiles,  bombers,  or 
tankers  (see  description  of 
PLANTAPE  records) 

FILABEL  is  a filehandler 
common  block 

Not  used  in  INTRFACE 

BASFILE  unit  number  and  length 

Dummy  array 

PLANTAPE  unit  number 

Weapon  yield 

Fission  fraction  for  weapon 

Number  of  weapons 

Day  of  game 

Month  of  game 

Year  of  game 

IFUNC(I)  is  function  or 
command  to  which  QUICK  plane 
type  I belongs 

JFUNC(I)  is  function  or  command 
code  if  I is  odd;  JFUNC (1+1) 
is  the  Hollerith  name  for 
JFUNC (I) 

INDFUNC (I)  is  the  same  as 
JFUNC (1)  when  I is  even 

Hollerith  constants 

6HA 

6H 


372 


CH-2 


/ 


I 


{ 


i 

1 


! 


4.6.1  Overlay  PLANO 1 


PURPOSE: 


ENTRY  POINTS: 


This  first  overlay  of  program  PLANOUT  permits  the 
user  to  make  minor  changes  to  the  plans  generated 
by  QUICK  without  requiring  a new  allocation 

PLAN01 


FORMAL  PARAMETERS:  None 


COtHON  BLOCKS:  BASEF,  BEGIN,  BLOCK,  CARDS,  CONTROL,  CONTR1,  CORRCHAR, 

CORRC1 , DPENRE,  FILABEL,  FILES,  ITP,  MYIDENT,  MYLABEL, 
NOPRINT,  OUTSRA , OUTSRT,  PAYDATA,  PLNTHL,  TARLIST, 
WORD,  WAROUT 


SUBROUTINES  CALLED:  ABORT,  CHGCORR,  CHGSRT,  DEACTIV,  FLTSORT,  ITCHG, 

LOCATE,  MKCHG,  RDARRAY,  RDWORD,  SETREAD,  SE WRITE, 
SKIP,  SLOG,  TERMTAP,  WRARRAY 

CALLED  BY:  PLANOUT 


Me  thod : 

The  tape  option  card  is  read  and  printed  to  initiate  processing,  as  shown 
in  figure  76.  This  card  defines  whether  PLANTAPE  and/or  EVENTAPE  is  to  be 
created  and  whether  this  run  of  PLANOUT  will  use  a recycled  version,  IST=1, 
of  STRKCHNG,  or  not.  The  first  sortie  change  card  is  read  and  if  the  opera- 
tion code  is  an  "E"  there  are  no  changes  and  the  first  overlay  terminates. 

If  not,  the  change  cards  are  read,  sorted  by  Sortie  Sequence  Number  and 
saved  on  a temporary  file.  Then  the  first  card  is  read  from  the  file  and 
the  processing  of  all  change  cards  begins. 

The  first  phase  is  the  initialization  of  input  files  and  performance  of  the 
proper  reads.  TARFILE  is  initialized;  the  header  is  read  into  common 

/TARLIST/  and  its  file  is  terminated.  Subroutine  FINDTAR  will  reopen  and 

close  TARFILE  as  needed. 

BASFILE  parameters  are  now  read  into  common  /BASEF/,  /CORRCHAR/  and  /DPENRE/. 
/BASEF/  array  contains  information  required  if  new  missile  sorties  are  added; 
other  data  are  used  in  subroutine  CHGSRT  when  bomber  attrition  and  low- 
altitude  distmce  are  recalculated.  If  no  STRKCHNG  file  exists,  subroutine 
CHGCORR  is  called  to  fill  required  arrays  for  use  in  FLTSORT.  Once  defined, 
these  arrays  are  placed  on  the  STRKCHNG  file  and  kept  for  future  runs. 

PIANOl  next  determines  the  latest  STRKCHNG  file  and  defines  it  as  the  input 
file,  SCHNG1.  The  various  combinations  are:  no  STRKCHNG  exists,  one  or 

two  STRKCHNG  exist.  Function  LOCATE  determines  the  existence  of  files 
and  subroutine  SETREAD  stores  the  creation  date  and  times  into  comnon 
/FILABEL/.  Parameters  INDSK  and  INDSKM  define  input  file  number  and 
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Figure  76.  (Part  3 of  7) 
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file  name;  IOUTDSK  and  TOUTDSKM  the  output  number  and  name.  The  STRKCHNG 
header  is  read,  if  any  file  exists.  Finally,  the  STRKFILE  is  opened  and 
the  first  word  TARFAC  is  read.  SCHNG2  writes  the  output  header. 

Merging  of  i"put  data  with  STRKFILE  and/or  STRKCHNG  (if  it  exists)  now 
begins.  The  cyclic  process  is  as  follows: 

• Read  a plan  into  common  /OUTSRT/  and  if  it  is  a missile  plan 
transfer  the  plan  into  /BLOCK/  array  and  finish  reading  the 
missile  plan.  If  local  parameter  NOREAD 1 is  nonzero,  STRKFILE 
has  been  terminated. 

• A STRKCHNG  record  is  read  if  it  exists  and  the  user  desires  it, 
ISTj/O.  Each  read  is  accomplished  in  three  steps.  A two-word 
header  exists  for  each  sortie.  If  the  second  word,  LR£AD(2),  is 
zero  the  plan  as  given  on  the  STRKFILE  is  used;  if  not  this  plan 
has  been  altered  in  previous  PLANOUT  runs.  For  this  case  the 
altered  plan  follows  on  the  STRKCHNG.  The  plan  is  read,  again, 
into  common  /C  ’ iSRT/  or  /BLOCK/,  thus  eliminating  the  STRKFILE 
record.  Added  information  is  read  into  common  /OUTSRA/. 

• It  is  imperative  that  the  sortie  sequence  number  on  both  files 
match  for  all  plans.  A mismatch  causes  the  program  to  abort. 

• The  STRKCHNC  (or  STRKFILE)  sortie  sequence  number,  ISORTN,  is  now 
compared  against  the  sortie  sequence  number,  ISSN,  defined  on  the 
last  change  card  read.  If  ISSN  is  greater  than  ISORTN,  the 
present  plan  is  unaltered  on  this  run  and  written  onto  SCHNG2 

as  read. 


• For  a change  request,  ITCHG  is  called  to  initialize;  then  CHGSRT 
to  process  the  sortie  change  card.  A new  change  card  is  read 
and  sortie  sequence  numbers  are  again  compared.  Whenever  ISSN 
is  greater  than  ISORTN  the  present  plan  may  be  finalized;  MKCilG 
accomplishes  this.  If  any  errors  were  detected  on  cards,  IC11ANGE 
<0,  the  output  STRKCHNG  will  be  the.  unchanced  input  record.  Sub- 
routine FLTSORT  is  used  for  bomber  plan  and  when  recalculation, 
ICHANGE  >0,  of  attrition  is  desired.  After  meeting  these  checks, 
the  altered  SCHNG2  is  written  and  the  cycle  continues  by  reading  a 
new  plan  on  STRKFILE  and  STRKCHNG. 

This  cyclic  process  continues  until  the  STRKFILE  end-of-file  is  read.  At 
this  stage  non-MIRV  missile  sorties  may  be  added.  One  sortie  change  com- 
pletely defines  a new  missile  sortie. 


if 
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Figure  83  shows  a typical  path  a bomber  would  take  between  the  time 

of  its  launch  and  its  recovery.  The  bomber  is  launched  from  a base, 
flics  to  a refuel  point  or  area  if  refueling  is  called  for,  then  to  a 
corridor  entry  point.  It  may  then  fly  one  or  more  prespecified 
doglegs  (called  precorridor  legs)  which  define  a penetration  route 
before  reaching  the  point  labeled  Corridor  Origin.  From  the  origin 
it  flies  over  the  target  area  and  its  assigned  targets  in  their  proper 
order.  It  then  enters  the  depenetration  corridor  which  may  also 
consist  of  one  or  more  doglegs.  From  there  it  flies  to  the  recovery 
point  cr  base.  At  any  point  after  the  corridor  entry  it  may  cross  a 
boundary  line  between  defense  zones. 

Tins  path  may  logically  be  divided  into  four  parts:  (1)  the  launch 

and  x'efucl  portion,  (2)  the  precorridor  legs,  (3)  the  target  area 
which  is  the  main  part  of  the  plan,  and  (4)  the  depenetration  and 
recovery  portion. 

In  PI.NTPLAN,  each  bomber  sortie  is  processed  in  much  the  same  order  as 
it  is  flown;  that  is,  first  the  precorridor  section  events  are  posted, 
then  those  of  the  target  section,  and  finally,  the  depenctration  and 
recovery  section  events.  Besides  the  posting  of  the  target  events 
themselves,  the  main  processing  consists  of  posting  events  for  changes 
of  altitude,  zone  crossings,  and  decoy  launches.  All  postings  for 
bomber  events  arc  made  in  the  arrays  of  common  /DINDATA/. 

After  each  bomber  plan  has  teen  evaluated,  and  its  data  stored,  PLNTPLAN 
reads  in  the  next  STRKFII.P.  record  and  executes  subroutine  CHGCHK.  If  the 
new  record  is  the  alternate  plan  for  the  sortie  just  processed,  the  alter- 
nate plan  for  the  sortie  just  processed,  the  alternate  events  are  posted 
before  the  FVHNTAPL'  or  PLANTAPIi  is  written.  Otherwise,  the  completed 
plan  is  output,  and  processing  begins  on  the  new  plan. 

After  processing  all  bomber  plans,  STRKCHNG  must  be  investigated  for  any 
missile  sorties  added  by  the  user  in  PLANOl.  If  the  sortie  sequence 
number  is  less  than  99999,  sorties  were  added  and  PLANTMIS  processes  all 
added  plans.  These  sorties  do  not  exist  on  the  STRKFILE. 
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Figure  82.  Overlay  PLNTPLAN  (Macro  Flowchart) 
(Part  1 of  2) 


Tanker  plans  are  generated  by  subroutine  PLANTANK  after  all  bomber  and 
missile  plans  have  been  completed.  All  files  are  then  terminated,  and 
PLNTPLAN  exits. 

To  facilitate  discussion,  PLNTPLAN  is  divided  into  "blocks"  of  coding  as 
noted  in  the  macro  flowchart.  The  remaining  description  as  well  as  the 
detailed  flowcharts  are  organized  around  these  blocks,  which  are: 

BLOCK  10  - Program  initialization 
15  - Control  loop 
20  - Call  subroutine  PLAN 

80  - Read  next  /OUTSRT/  record,  convert  last  one 
90  - Process  final  plan  and  write  on  EVENTAPE 
100  - Program  termination 

Block  10:  Program  Initialization  (figure  84) 

In  addition  to  initialization  program  variables,  coding  block  10  reads 
all  required  data  from  the  BASFILE,  and  all  user  control  cards,  calling 
subroutine  SNAPCON  for  the  print  request  cards  and  subroutine  LNCHDATA 
for  the  missile  timing  cards.  Files  are  initialized,  headers  read,  and 
preliminary  information  is  printed. 

Block  15:  Control  Loop  (figure  85) 

The  first  bomber  plan  is  then  read  in  from  the  STRKFILE,  subroutine 
CHGCHK  executed  to  read  STRKCHNG  and  the  main  processing  of  PLNTPLAN 
begins.  If  a missile  plan  is  read,  subroutine  PLANTMIS  receives  control. 
Otherwise,  the  number  of  events  is  checked  and  the  sortie  INDEX  is  com- 
puted. Subroutine  SNAPCON  is  called  to  determine  which  prints  are  to  be 
active  for  this  plan.  If  the  program  is  to  be  terminated  at  this  sortie 
(print  request  14),  a branch  is  taken  to  the  termination  block. 

Block  20:  Call  Subroutine  PLAN  (figure  86) 

The  bomber  sortie  is  checked  to  see  if  it  is  able  to  fly  to  a recovery 
base  or  if  its  full  compliment  of  weapons  were  allocated.  After  this  is 
done,  subroutine  PLAN  is  called  to  develop  detailed  bomber  sorties. 

Block  80:  Read  Next  /OUTSRT/  Record.  Convert  Last  One  (figure  87) 

After  the  processing  of  the  sortie  has  been  completed  as  described  above, 
the  next  /OUTSRT/  record  is  read  in  and  checked  to  determine  if  it  con- 
tains the  alternate  plan  for  the  sortie  just  processed.  The  details  of 
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the  processing  at  this  point  are  determined  by  whether  the  current  sortie 
is  the  primar-y  plan,  its  refuel-abort  alternate,  or  whether  it  is  a plan 
without  an  alternate.  In  any  case,  subroutine  bWTOJALI  is  called  to 
convert  the  CHANGALT  events  to  GO  LOIV  or  GO  HIGH  event  ..  Subroutine 
DIST1ME  then  is  called  to  compute  distances  between  events  and  associated 
time  increments,  and  subroutine  DECOYADD  is  called  tc  allocate  the 
available  decoys.  Decoy  Launches  arc  now  added  to  the  detailed  History 
table  by  examining  each  event  to  see  if  a launch  is  to  be  inserted 
(indicated  if  the  corresponding  word  in  array  ILAUNDEC  is  nonzero). 

For  low-altitude  launches  (ILAUNDEC  = 0),  the  actual  launch  point  must 
be  computed.  The  Decoy  Launches  are  inserted  by  copying  each  event  into 
a temporary  detailed  History  table.  If  a GO  HIGH  event  has  a deco., 
launch  indicated,  the  launch  is  inserted  after  the  GO  HIGH.  Foj  ill 
other  events  with  indicated  decoy  launches,  the  launch  is  inserted 
before  the  event  is  copied.  Decoy  launches  are  posted  by  adding  t'  ■ 
event  LAUNDCOY  to  the  event  array  (JTP)  and  storing  the  number  of 
decoys  launched  (>0)  in  the  array  usually  reserved  for  t he  place  ind  x 
(KPL) . The  remaining  information  required  in  the  detailed  History 
table  is  stored  in  the  normal  manner. 

* 

Decoys  arc  terminated  as  the  detailed  History  table  is  recopied  into  its 
original  arrays,  bach  time  a high-altitude  Decoy  Launch  event  is  en- 
countered, the  total  decoy  flight  time  is  computed  from  the  distance  in 
array  DISTORE  (filled  by  subroutine  DECOYADD)  and  added  to  the  next 
odd  word  in  an  array  (TSTORE)  which  holds  the  remaining  flight  time  of 
all  decoys  which  have  been  launched  but  not  yet  terminated  at  the  time 
of  this  event.  The  number  of  decoys  to  be  terminated  is  added  to  the 
next  even  word  of  TSTORE.  As  each  subsequent  event  is  processed,  the 
time  since  the  last  event  (HDT)  is  subtracted  from  the  times  in  TSTORE. 
Whenever  a decoy  has  no  flight  time  remaining,  a I.MJNDCOY  event, 
together  with  the  number  of  decoys  being  terminated  (stored  as  a nega- 
tive number)  and  other  relevant  information,  is  added  to  the  detailed 
History  table.  If  the  bomber  depenetrates  or  aborts  while  decoys  arc 
still  flying,  the  remaining  decoys  arc  terminated  immediately  before 
the  final  event.  It  should  be  noted  that  decoys  launched  at  low  alti- 
tude arc  not  terminated. 

If  the  recently  read  /GUTSRT/  record  was  an  alternate,  control  transfers 
back  to  block  1 T» . Otherwise  PLNTPLAN  outputs  the  final  plan  to  the 
PLANTAPE  if  the  PLANTAPE  option  has  been  exercised.  If  the  EVENTAPE 
has  been  requested,  control  then  transfers  to  coding  block  90;  otherwise  it 
returns  to  block  if,. 
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Figure  85.  Overlay  PLNTPLAN 

Block  15:  Control  Loop 
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Block  90:  Process  Final  Plan  and  Write  on  EVENTAPE  (figure  88) 

The  purpose  of  this  block  is  to  format  the  plan  for  output  to  the 
Simulator.  During  this  processing,  all  references  to  geography  (i.e., 
latitudes  and  longitudes)  are  dropped.  Dogleg  events,  which  are 
strictly  geographic,  are  also  dropped  and  time  increments  associated 
with  them  are  accumulated  with  the  time  increment  of  the  next  suc- 
ceeding event.  GO  HIGH  and  GO  LOW  events  are  converted  back  to 
CHANGALT  events  and  the  Weapon  table  is  constructed.  (In  the  event  that 
the  plan  and  its  alternate  exceed  80  lines,  a warning  is  issued  on  the 
standard  output  unit,  and  the  first  80  lines  of  this  plan  are  used.) 

At  this  point  the  height  of  burst  indicator  for  the  EVENTAPE,  ZDGZ  is 
set.  The  target  index  number  (KPL)  is  compared  against  the  index  num- 
bers in  the  old  event  list  (IBJECO) . When  a match  is  found,  ZDGZ  is 
set  to  the  desired  height  of  burst  MYHOBO. 


In  the  case  of  weapons  which  have  a time-dependent  destruction-before- 
launch  probability  (DBL) , an  extra  event  is  written  on  the  EVENTAPE. 

This  event  causes  the  Simulator  to  compute  a dynamic  destruct  event  for 
the  base  using  the  DBL  data  table  passed  on  the  SIMTAPE  by  Program 
INDEXER.  The  format  for  this  event  was  shown  in  table  24  (under  OUTPUT), 
If  there  are  several  bombers  launched  consecutively  from  the  same  base, 
this  event  precedes  only  the  first  bomber  LAUNCH  event.  If  two  or  more 
of  these  events  for  the  same  base  do  appear  on  the  EVENTAPE,  the  Simu- 
lator will  process  only  the  first. 


Block  100:  Overlay  Termination  (figure  89) 

The  termination  of  PLNTPLAN  occurs  when  the  end  sentinel  record  is 
reached  on  the  input  STRKFILE.  This  record  is  identified  by  a group 
number  greater  than  200.  At  this  stage  all  missile  sorties  added  in 
PLANO 1 onto  ;he  STRKCHNG  are  processed.  A sortie  sequence  number 
greater  than  99999,  implies  no  added  sorties.  After  PLANTMIS  evaluates 
all  added  plans,  subroutine  PLANTANK  is  called  to  generate  and  write 
sorties  for  all  tankers  listed  on  the  BASFILE.  A sentinel  record  is 
written  at  the  end  of  the  EVENTAPE  and  the  PLANTAPE;  the  bomber  recovery 
information  is  added  to  the  eventape  and  the  Refuel  Area  table  to  the 
PLANTAPE.  At  this  point,  the  list  of  Sortie  Numbers  of  the  bombers  that 
could  not  reach  a recovery  base  and  the  list  of  those  that  did  not  use 
their  full  complement  of  weapons,  is  printed  out.  Finally,  all  files  are 
terminated,  and  final  messages  are  printed. 

This  completes  the  PLNTPLAN  processing. 
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Figure  8fl.  (Part  4 of  4) 
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4.6.2.17  Subroutine 

PLANTMIS 

PURPOSE : 

To  control  the  processing  of  all  missile  plans 
input  from  the  STRKFILE. 

ENTRY  POINTS: 

PLANTMIS 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BLOCK,  CONTROL,  CONTRl , FILES,  ITP,  KEYLENG,  KEYM, 
MISCT,  MRVFLG,  NAVAL,  OUTSRA,  OUTSRT,  PAYLOAD, 
SNAPON,  TIMELINE,  TWORD,  WPNGRPX,  DELTA,  WAROUT, 
WPNTYPEX,  MAX 

SUBROUTINES  CALLED: 

ABORT,  CHGCHK,  GLOG,  IGET,  IPUT,  KEYMAKE , RDARRAY , 
SNAPIT,  TIMELNCH , TIMEME,  WRARRAY,  WRWORD 

CALLED  BY: 
Method : 

PLNTPLAN 

This  subroutine  reads  and  processes  missile  plans  from  STRKFIliE  or 
STRKCHNG.  It  is  called  whenever  PLNTPIAN  reads  a missile  record. 

The  STRKFILE  or  STRKCHNG  record  is  first  moved  from  /OUTSRT/  to  /BLOCK/. 

To  facilitate  processing,  most  of  the  data  is  then  transferred  to  the 
TDATA  array  in  common  /TIMELINE/.  Table  40  shows  the  variable  placement 
in  arrays  BLOCK  and  TDATA. 

The  remainder  of  PLANTMIS  merely  outputs  missile  plans  in  the  correct 
format  onto  the  PLANTAPE  and  EVENTAPE.  If  the  weapon  group  under  considera- 
tion has  a time-dependent  DBL  probability,  the  subroutine  precedes  the 
missile  launch  events  for  each  base  on  the  EVENTAPE  with  a naval  DBL 
destruct  event.  If  all  events  have  been  deleted  from  a record  that 
record  is  not  output  on  the  PLANTAPE  or  EVENTAPE.  This  situation  is 
identified  when  target  index  is  zero.  The  last  words  in  each  EVENTAPE 
miss.'le  launch  event  record  are  target  data  words  which  occur  in  pairs, 
one  pair  for  each  target.  The  second  word  is  the  time  of  flight  from 
launch  to  target.  The  format  of  the  first  word,  along  with  that  of  the 
DBL  destruct  event,  is  shown  in  table  24  under  PLNTPLAN  Output  Files. 

Whe  LANTMIS  has  completed  processing  a missile  record,  it  reads  the  next 
plan  from  the  STRKFILE  and  calls  CHGCHK  to  read  the  STRKCHNG.  If  the 
information  read  is  another  missile  record,  PLANTMIS  processes  it  without 
returning  to  PLNTPIAN;  otherwise  it  returns. 
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Table  40.  Arrays  TDATA/ITDATA  and  BLOCK/!, OCK 
Used' in  PLANTMIS  and  T IMbLNCH 


TDATA/ITDATA 

INDEX 

ATTRIBUTE 

BLOCK/LOCK 

INDEX 

— 

STRKFILE  or  EVENTAPE  Record  words  1-18 

1-18 

1-18 

Missile  indices 

19-36 

19-36 

Site  indices  (from  data  base) 

37-54 

37-54 

Target  indices  (from  data  base) 

55-72 

55-72 

Offset  latitude  (DLAT) 

73-90 

73-90 

Offset  longitude  (DLONG) 

91-108 

91-108 

Flight  Time  (hours) 

109-126 

109-126 

Weapon  site  latitude 

127-144 

127-144 

Weapon  site  longitude 

145-162 

145-162 

Target  latitude 

163-180 

163-180 

Target  longitude 

181-198 

181-198 

Target  designator 

199-216 

199-216 

Target  task  and  owner 

217-234 

217-234 

Target  country 

235-252 

235-252 

Target  flag 

253-270 

A. 6. 3 Overlay  INTRFACE 


PURPOSE: 

This  third  overlay  of  PLANOUT  adds  information  to 
the  output  of  PLNTPLAN  and  creates  tapes  to  be 
used  in  programs  external  to  QUICK. 

ENTRY  POINTS: 

INTRFACE 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

ASMTABLE,  CUMNO,  DATE,  DIN,  FILABEL,  FILES,  FRACYLD, 
GAMETIME,  IFUNC,  INTRHL,  IPRT,  ISOUTH,  ITP,  MASTER, 
MODE,  MYIDENT,  NOPRINT,  OFFSYS,  PAYLD2 , PAYLOAD, 
PROBl,  STUB,  TAB,  VEHIC,  WAROUT 

SUBROUTINES  CALLED: 

IGETHOB , IPROB,  ITLE , KNOBLANK,  LATDT,  LATS , LONDT, 
LONS,  NOBLANK,  NOFFSYS , NOP,  NPLNETYP,  NTIME, 
NUMGET,  ORDER,  PRNTOFFS , RDARRAY , REORDER,  SETREAD, 
SKIP,  TERMTAP,  TIME ME,  YLDFRAC , FINDTIME 

CALLED  BY: 

PLANOUT 

Method : 

As  indicated  in  figure  141,  INTRFACE  first  reads  and  prints  the  user- 
input  cards  and  stores  the  information  in  the  appropriate  common  blocks  — 
namely,  /GAMETIME/,  /IPRT/,  and  /IFUNC/.  Then  it  initialize  the  file- 
handler  and  proceeds  to  input  data  for  common  blocks  /MASTER/,  /CUMNO/, 
/PAYLOAD/,  /FRACYLD/,  /VEHIC/,  and  /PROBl/  from  the  BASFILE.  Depending 
on  the  user  print  option  IPRT,  INTRFACE  then  prints  weapon  and  vehicle 
tables  from  common  blocks  /FRACYLD/  and  /VEHIC/ . 

After  this  initial  input  process,  INTRFACE  processes  the  PLANTAPE  records 
for  missiles,  bombers,  and  tankers  --  one  at  a time.  First  it  reads  in  a 
PLANTAPE  header  block  and  uses  word  8 (missile  or  weapon  type)  to  obtain 
I LANPLTYP,  IPLNETYPE,  ICMD,  and  CEPl  for  the  STRIKE  tape  and  ABTAPE.  If 
the  record  is  for  a missile,  INTRFACE  then  reads  in  the  target  information 
blocks  from  the  PLANTAPE.  If  the  record  Is  for  a bomber,  INTRFACE  first 
reads  in  the  plan  information  blocks  to  determine  the  number  (KK)  of 
scheduled  weapons  (i.e.,  the  number  of  drop  bomb  and  ASM  target  events), 
and  then  reads  in  KK  target  information  blocks.  If  the  record  is  for  a 
tanker,  INTRFACE  reads  in  the  plan  information  blocks  from  the  PLANTAPE. 

For  all  weapon  types,  the  associated  events  are  sorted  within  sortie  number 
on  time  of  the  event.  If  the  user  has  specified  that  he  does  not  want 
a STRIKE  tape,  INTRFACE  skips  the  following  process. 


613 


CH-1 
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Figure  141.  Subroutine  INTRFACE  (Part  1 of  5) 
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r.oo 


Read  MISSILE-TARGET 
INFORMATION  Block 
From  PLANTAPE 


Sort  Missile 

Information  By  Event  Time 


STRIKE  Tape 

Produced? 

_y^ 

^ Yes 

Done 

Do  3010 

For  Each  Weapon 
^ Do 

Format  i UNIT  And  ISORTIE 
Numbers  For  Tapes 
(KNOBEANK) 


Do  3000  For  Each 
Missile  Event 


Call  KNOBLANK  To 
Format  1UNIT  And  ISORTIE 
Number  For  B Cards 


Format  1CNTRY  And  INDEX'!' 
For  STRIKE  Tapes 


New  Missile  Launch? 


c; 


End  file  ABTAPF  And 
STRIKE  Tape;  Rewind/ 
PLANT APE,  ABTAPE,  / 
And  STRIKE  Tape  / 


Call  T I Ml. ME  To 
Print  Timing 
Informat  ion 


STRIKE  Tape  And 
ARTAPE  Produced? 


ABTAPE  To  Be  Printed 
Separately  From  Strike 
Tape? 


Call  PRNTOFFS  To 
Print  Offensive 
Systems  Table 


ABTAPE  Printed? 


Rewind  ABTAPE 


Read  One  Card 
From  ABTAPE 


Print  Card  From 
ABTAPE 


Figure  141.  (Part  5 of  5) 


Since  INTRFACE  produces  strike  cards  only  for  events  which  are  target 
hits  by  ASMs,  bombs,  or  missiles,  tanker  records  are  ignored  during  the 
processing  for  the  STRIKE  tape.  INTRFACE  processing  for  the  STRIKE  tape 
falls  into  seven  main  categories.  The  first  is  conversion  of  many  num- 
bers into  BCD  code  and  replacement  of  leading  blanks  in  these  numbers  by 
zeroes.  Functions  KNOBLANK  and  NOBLANK  are  used  to  accomplish  this  pro- 
cess. The  second  involves  determining  target  impact  time,  TGT1TIME,  in 
hours  from  the  beginning  of  the  game,  and  using  common  block  /GAMETIME/ 
and  subroutine  FINDTIME  to  convert  TGT1TIME  into  BCD  coded  data.  The 
third  is  determination  of  target  latitude  and  longitude  in  degrees  and 
conversion  of  these  numbers  to  a BCD  coded  word  which  contains  the  lati- 
tude or  longitude  in  degrees,  minutes,  and  seconds — North  or  South,  or 
East  or  West.  Function  LATS  (and  entry  LONS  in  LATS)  are  used  to  accom- 
plish this  process.  The  fourth  is  conversion  of  probabilities  into 
percent  by  using  function  IPROB.  The  fifth  is  using  IGETHOB  to  deter- 
mine height  of  burst  for  the  weapon.  The  sixth  is  using  subroutine  YLDFRAC 
to  calculate  equivalent  yield  and  associated  fission  fraction  if  the  re- 
cord is  for  an  MRV  missile.  The  last  is  to  compute  the  launch  and  back 
azimuths  for  missiles.  When  these  seven  categories  of  processing  have 
been  completed  for  missile  and  bomber  records,  INTRFACE  writes  a strike 
card  record  on  the  STRIKE  tape  and,  depending  on  the  user’s  option,  also 
prints  the  card. 

When  all  the  strike  cards  corresponding  to  the  PLANTAPE  record  have  been 
produced,  INTRFACE  tests  whether  the  user  has  specified  that  the  ABTAPE 
is  to  be  made.  If  not,  INTRFACE  skips  the  processing  of  "A"  and  "B"  cards 
and  returns  to  the  branch  where  it  reads  in  a PLANTAPE  record.  Otherwise, 
corresponding  to  each  aircraft  in  the  case  of  bomber  or  tanker  record  and 
to  a booster  in  the  case  of  a missile,  INTRFACE  processes  information  for 
the  "A"  card.  Only  two  categories  of  processing  are  involved.  The  first 
is  conversion  of  integers  to  BCD  code  as  mentioned  before.  The  second  is 
calculation  of  bomber  or  tanker  takeoff  time  or  of  missile  launch  time  in 
hours  and  minutes  from  the  beginning  of  the  game;  NTIME  is  used  to  convert 
the  time  from  floating  point  hours  to  BCD  hours  and  minutes.  When  this 
processing  for  the  "A"  card  is  complete,  INTRFACE  writes  an  "A"  card  re- 
cord on  the  ABTAPE.  If  the  user  has  specified  that  the  ABTAPE  is  to  be 
printed  and  that  it  should  be  printed  together  with  the  STRIKE  tape, 
INTRFACE  prints  the  "A"  card.  It  then  begins  processing  the  "B"  cards. 

It  produces  a "B"  card  corresponding  to  each  missile  launch,  missile  re- 
entry vehicle  on  target,  and  to  each  bomber  or  tanker  event  which  is  a 
launch,  refuel,  dogleg,  ASM  launch,  ASM  on  target,  decoy  release,  decoy 
impact,  bomb  on  target,  recovery,  or  splash.  Processing  for  this  card 
falls  into  four  main  categories.  The  first  is  again  conversion  of  inter- 
gers  to  BCD  code  using  KNOBLANK  and  NOBLANK.  The  second  is  conversion  of 
floating  point  numbers  for  latitude  and  longitude  at  the  end  of  a leg 
into  BCD  codes;  LATDT  and  entry  LONDT  in  LATBT  are  used  to  perform  this 
function. 
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The  third  is  calculation  of  number  of  hours  since  beginning  of  game  to  t'ne 
beginning  of  the  route  leg  and  conversion  of  this  number  into  BCD  code  by 
NTIML.  The  last  is  determination  of  the  target  region  associated  with  the 
missile  reentry  vehicle,  ASM  or  bomb.  At  the  completion  of  "B"  card  proc- 
essing, 1NTRFACE  writes  the  "B"  card  on  the  ABTAPE . Again,  if  the  user 
specified  printing  of  the  ABTAPE  together  with  the  STRIKE  tape,  INTRFACE 
also  prints  the  "B"  card. 

When  all  of  the  PLANTAPE  records  have  been  processed  to  produce  the 
specified  strike  cards  and/or  "A"  and  ”B"  cards,  INTRFACE  writes  end-of- 
file  marks  on  the  STRIKE  and/or  ABTAPE  and  tests  to  determine  if  the  user 
specified  a print  of  the  ABTAPE  separate  from  the  STRIKE  tape.  If  a 
separate  print  was  specified,  INTRFACE  rewinds  ABTAPE,  reads  it  one  card 
at  a time,  decodes  it,  and  prints  it;  at  the  end  of  the  print  INTRFACE 
calls  PRNTOFFS  to  print  the  offensive  systems  table  for  the  PLANTAPE, 
and  then  prints  INTRFACE  timing  information  before  stopping. 


Method: 

TGTHIME  is  the  time  in  hours  since  the  beginning  of  the  game  of  a target 
hit.  FINDTIME  first  converts  TGTlTIME  into  integers  IHOUR  and  MIN  for 
minutes.  XMIN,  the  floating  point  number  of  minutes,  is  further  converted 
to  ISEC  for  seconds  where  ISEC  is  a result  of  rounding  off  to  the  nearest 
integer.  If  ISEC  equals  60,  FINDTIME  resets  it  to  0 and  adds  1 to  MIN. 

If  MIN  equals  60,  FINDTIME  resets  1 to  0 and  adds  1 to  IHOUR.  Then  if 
IHOUR  is  at  least  24,  FINDTIME  alternately  decreases  IHOUR  by  24  and 
increases  IDAY  by  1 until  IHOUR  is  less  than  24.  (The  initial  values  of 
IDAY,  IMON,  and  IYEAR  are  the  input  values  for  the  day,  month,  and  year 
of  the  game.)  Similarly,  FINDTIME  tests  IDAY  and  if  it  is  greater  than 
31  it  alternately  adds  1 to  IMON  and  decreases  IDAY  by  31  until  IDAY  is 
less  than  32.  FINDTIME 's  final  test  is  on  IMON.  If  IMON  is  larger  than 
12,  FINDTIME  alternately  decreases  it  by  12  and  increases  IYEAR  by  1 
until  IMON  is  less  than  13.  If  for  some  unanticipated  reason  IYEAR  is 
larger  than  99,  FINDTIME  resets  it  to  99  and  prints  an  error  message  for 
ILLEGAL  DATE. 

Finally,  FTNDTIME  codes  IDAY,  IHOUR  and  MIN  into  integer  by  performing 
the  sum  of  10000* IDAY,  100* IHOUR,  and  IMIN,  to  obtain  IDATE.  KNOBLANK  is 
used  to  obtain  DAHOMIMO,  LDAY  (now  actually  month),  YEAR  (actually  now 
seconds)  in  BCD  format. 

Subroutine  FINDTIME  is  illustrated  in  figure  142. 
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SECTION  5.  PROGRAM  TABLE 


5. 1 Purpose 

Program  TABLE  provides  an  interface  between  QUICK  and  two  external  simula- 
tors used  in  RISOP/SIOP  gaming;  i.e.,  the  Event  Sequenced  Program  (ESP) 
and  the  Nuclear  Exchange  Model  (NEMO) . 

Specifically,  program  TABLE  reads  either  the  INDEXDB  tape  produced  by 
program  INDEXER  or  the  INMODDB  tape  produced  by  program  DBMOD  and  records, 
in  abbreviated  form,  selected  data  concerning  weapon  systems  and  targets 
described  therein.  The  extracted  data  are  written  on  an  output  tape, 
TABLTAPE.  This  program  performs  no  other  functions  and  is  not  required 
to  operate  the  QUICK  system.  However,  because  it  summarizes  part  of  the 
indexed  data  base,  it  enables  the  user  to  review  the  data  base  before 
embarking  on  plan  generation  if  he  so  chooses. 

5.2  Input  File 

The  sole  input  file  is  the  INDEXDB  tape  produced  by  program  INDEXER  or 
the  INMODDB  tape  produced  by  program  DBMOD.  The  format  of  both  these 
files  is  identical  and  is  described  as  the  output  of  INDEXER  of  the 
Weapon/Target  Identification  subsystem.  For  the  remainder  of  this 
chapter,  the  input  file  is  assumed  to  be  the  INDEXDB  tape.  The  INMODDB 
tape  replaces  this  file  only  if  the  user  has  used  program  DBMOD  after 
program  INDEXER  to  modify  the  indexed  game  data  base. 

The  data  extracted  from  the  input  file  include  descriptions  of  targets, 
missile  and  bomber  launch  bases,  delivery  vehicles  (missiles  and  bombers), 
and  weapon  characteristics. 

The  sole  user-input  parameter  to  program  TABLE  specifies  the  attacking 
side  for  the  current  plan.  Thus,  TABLE  is  run  once  for  each  side. 

5.3  Output  File 

I The  sole  output  file  is  the  TABLTAPE.  This  tape  is  written  as  six  data 
lists:  Target  list  (FlTARGET) , Vehicle  Characteristics  list  (FlVEHIC) , 

Weapon  Characteristics  list  (FlWEAPON),  Missile  Base  list  (FlMIBASE) , 

| Offensive  Recovery  Base  List  (FlRECBS),  and  Bomber  Base  list  (FlBASE). 

The  lists  are  placed  on  the  TABLTAPE  in  the  above  order.  Each  entry  in 
each  list  is  written  as  one  80-character  BCD  logical  record.  (The 
TABLTAPE  consists  of  only  one  file;  the  lists  are  not  separated  into 
separate  files.) 

The  information  on  the  TABLTAPE  is  also  printed  on  the  standard  output 
file  to  provide  hard  copy  output  of  these  lists.  Figures  153  through 
157  display  the  format  of  the  80-character  records  for  each  list. 
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COLUMNS 


DESCRIPTION 


REMARKS 


1-8 

Format  and  table  name 

FI TARGET 

9 

Side 

1 = BLUE 

2 = RED 

10-14 

Line  number 

1 to  9999 

15 

Blank 

16-20 

Target  designator  code 
(Desig) 

2 Alpha 

3 numeric 

21-24 

Blank 

25-31 

Latitude 

Degrees,  minutes,  seconds, 
S if  south,  blank  if  north 

32-39 

Longitude 

Degrees,  minutes,  seconds, 
E if  east,  W if  west 

40-46 

Blank 

47-54 

Target  name 

8 characters  only 

55-59 

Category  code 

5 numeric 

60-61 

Country  code 

2 Alpha 

62-67 

Major  reference  number 

6 numeric 

68 

Blank 

69-70 

Task 

2 Alpha 

71 

Blank 

72-76 

Index  number  (INDEXNO) 

1-12,000  assigned  by  INDEXER 

77 

Blank 

78-80 

Complex  number 

1-999  assigned  by  INDEXER 

Figure  153.  Target  List 

(Program  TABLE) 
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COLUMNS 

DESCRIPTION 

REMARKS 

1-8 

Format  and  table  name 

F1VEHIC 

9 

Side 

1 = BLUE 

2 = RED 

10-14 

Line  number 

1-9999 

15 

Card  number 

1 

16-18 

Blank 

19-20 

Plane  type 

Type  number 

= 1 to 

99 

21-55 

Blank 

56-58 

CEP  Mode  1 or  CEP  Msl* 

Hundreds  of 

feet-0 

to 

999 

59-61 

Blank 

62-64 

CEP  Mode  4* 

Hundreds  of 

feet-0 

to 

999 

65-67 

Blank 

68-75 

Vehicle  type  name 

8 characters 

76-80 

Blank 

I 

s 

•flf 

Mode  1 (high  altitude)  and  Mode  4 (low  altitude)  refer  to  bomber  flight 
profiles.  QUICK  permits  only  one  value  of  CEP  for  each  type  bomber. 
This  assigned  CEP  is  entered  for  both  modes  (cc  56-58  and  62-64) 

\ 

J 


Figure  154.  Vehicle  Characteristics  List  (Program  TABLE) 
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COLUMNS 

DESCRIPTION 

REMARKS 

1-8 

Format  and  table  name 

Fl WEAPON 

9 

Side 

1 = BLUE 

2 = RED 

10-14 

Line  number 

1 to  9999 

15 

Blank 

16-19 

Weapon  number 

Weapon  number  = 1 to 
50  (WHDTYPE) 

20 

Weapon  type 

0 = Bomb 

1 = ASM 

2 = Decoy 

21-37 

Blank 

38-43 

Weapon  yield 

Kilotons 

44-46 

FISFRAC 

000-100 

47-80 

Blank 

Figure  155.  Weapon  Characteristic  List  (Program  TABLE) 


COLUMNS 

1-6 


7-8 


9 

10 

11-14 

15 


DESCRIPTION  REMARKS 

Format  and  table  name  F1BASE 

Blank 

Side  1 = BLUE 

2 = RED 

Blank 

Base  number  (NUMBAS) 

Blank 


16-20  Unit  identification  number  QUICK  index  number 

INDEXNO  (1-12000) 


21 


22-28 


29-36 

37 

38 

39 

40 


41-43 


Blank 

Latitude  Degrees,  minutes,  seconds, 

S if  south,  blank  if  north 

Longitude  Degrees,  minutes,  seconds, 

E if  east,  W if  west 


Blank 

Red  launch  command  (Bomb- 
er function) 

Blank 


2 * LRA 

3 * TAC 

.7  = None  of  the  above 


Base  functions  (either 
home  base  or  dispersal 
base) 


X = yes:  Blank  or  zero  = no; 

Note:  differentiation  between 

a "home  base"  and  a "dispersal 
base"  is  not  made 


Blank 


44  Tanker  one  Alpha  character 

45-59  Blank 


60-67 

68-69 

70-71 

72-80 


Target  name  eight  Alpha  characters 

Blank 

Country  Location  two  Alpha  characters 

B lank 

Figure  157.  Bomber  Base  List  (Program  TABLE) 
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COLUMNS 


DESCRIPTION 


REMARKS 


1-8 

Format  and  table  name 

9 

Side 

10-14 

Line  number 

15 

Blank 

16-20 

Target  designator  code 
(DESIG) 

21-24 

Blank 

25-31 

Latitude 

32-39 

Longitude 

40-45 

Target  name 

46-55 

WAC/BE 

56-60 

Category  code 

61-62 

Country  code 

63-68 

Major  reference  number 

69-70 

Task 

71-75 

Index  number  (INDEXNO) 

76 

Blank 

77-80 

Capacity 

FlRECBS 

1 = BLUE 

2 = RED 

1 to  9999 


2 Alpha 

3 numeric 


Degrees,  minutes,  seconds, 

5 if  south,  blank  if  north 

Degrees,  minutes,  seconds, 
E if  east,  W if  west 

6 characters 
10  Alpha 

5 numeric 
2 Alpha 

6 numeric 
2 Alpha 
1-12,000 


1-9999  Assigned  by  INDEXER 


Figure  137.1  Offensive  Recovery  Base  List  (Program  TABLE) 
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5.4  Concept  of  Operation 


Program  TABLE  reads  through  the  input  data  base  one  item  at  a time.  All 
indexed  items  on  the  defending  side  are  added  to  the  target  list  (F1TARGET). 
The  values  of  appropriate  attributes  are  encoded  into  the  80-character 
entry  for  this  list  and  written  on  the  TABLTAPE  directly. 

The  second  and  third  lists  on  the  TABLTAPE,  Vehicle  Characteristics 
list  (FlVEHIC)  and  Weapon  Characteristics  list  (F1WEAP0N),  are 
maintained  in  core  during  the  operation  of  program  TABLE.  These  lists  are 
stored  in  common  block  /cl 11/  in  arrays  TABVEH  and  TABWEP , respectively. 

The  fourth  list,  the  Missile  Base  list  (F1MIBASE),  is  stored  temporarily 
on  a scratch  file,  0UTAP2.  This  file,  produced  by  the  QUICK  filehandler, 

I uses  filehandler  buffer  number  2.  The  80-character  list  entries  are  output 
as  a 10-word  data  block.  In  the  closing  phases  of  TABLE  processing,  this 
scratch  file  is  read  and  the  data  are  transferred  to  the  TABLTAPE. 

| The  fifth  list  on  the  TABLTAPE,  the  Bomber  Base  list  (FlBASE) , is  stored 
temporarily  on  a scratch  file  0UTAP3.  This  file  uses  filehandler  buffer 
4 and  is  used  in  the  same  manner  as  0UTAP2. 

The  sixth  and  final  list  on  the  TABLTAPE,  the  offensive  Recovery  Base 
List  (FlRECBS)  is  also  stored  temporarily  on  a scratch  file  0UTAP4. 

This  file  uses  filehandler  buffer  8 and  is  used  in  the  same  manner  as 
0UTAP2. 

TABLE  performs  some  simple  error  checking  and  data  conversion.  The 
number  of  entries  in  the  vehicle  and  weapon  tables  is  checked  to  prevent 
table  overflow.  In  the  vehicle  table,  the  circular  error  probability  (CEP) 
is  converted  from  nautical  miles  (on  the  INDEXPB)  to  hundreds  of  feet 
(TABLTAPE).  In  the  weapon  table,  the  yield  is  converted  from  megatons  to 
kilotons  and  the  fission  fraction  is  converted  from  a fraction  (between 
0.0  and  1.0)  to  hundredths  (between  0 and  100). 

Subroutine  HELP  is  used  to  convert  latitudes  and  longitudes.  On  the 
INDEXDB  tape,  these  attributes  are  stored  in  QUICK  system  format.  In 
this  format,  latitudes  are  expressed  in  degrees  and  fractions  of  degrees 
with  north  latitude  positive  and  south  latitude  negative.  Longitudes  are 
expressed  in  degrees  and  fractions  of  degrees  ascending  in  a westward 
direction  from  the  Greenwich  meridian  in  a range  from  0.0  to  360.0  degrees. 
Subroutine  HELP  converts  data  from  this  format  to  the  standard  degrees/ 
minutes/seconds/direct  ion  format . 

5.5  Common  Block  Definition 

Common  blocks  /DIRECTRY/  and  /PROCESS/  of  the  data  base  handling  package 
are  used  in  processing  the  indexed  data  base  (INDEXDB).  In  addition, 

/Clll/,  described  below,  is  used  for  internal  processing. 
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ARRAY 


DESCRIPTION 


* 


BLOCK 


TABTAR(IO) 

Temporary  storage  for  single 
entry  in  target  list  (F1TARGET) 

TABMIS(IO) 

Temporary  storage  for  single 
entry  in  missile  base  list 
(F1MIBASE) 

TABVEH (800) 

Vehicle  characteristics  list 
(F1VEHIC) 

TABBAS(IO) 

Temporary  storage  for  single 
entry  in  bomber  base  list 
(F1BASE) 

TABWEP (700) 

Weapon  characteristics  list 
(F1WEAP0N) 

TABREC (10) 

Temporary  Storage  for  Single 
Entry  n Recovery  Base  List 
(FIRE CBS) 

J 


5.6  Program  TABLE  - Main  Processor  Routine 


PURPOSE : 


This  routine  retrieves,  reformats,  and  writes  the 
information  required  for  the  TABLTAPE. 


ENTRY  POINTS:  TABLE 


FORMAL  PARAMETERS:  None 

CONMON  BLOCKS:  DIRECTRY,  EDITERM,  ITP,  MYIDENT, 

NOPRINT,  PROCESS,  WAROUT 


SUBROUTINES  CALLED:  HELP,  INITAPE,  INITEDIT,  INPITEM,  ITLE , 

NEXTITEM,  RDARRAY,  SETREAD,  SETWRITE, 
TERMTAPE,  WRARRAY,  GLOC,  SLOG 


CALLED  BY : Operating  System;  this  is  a main  program 

Method  : 

This  routine  is  the  main  processor.  The  processing  is  quite  straight- 
forward. The  input  data  base  is  investigated  item  by  item.  A series  of 
checks  determines  if  the  item  is  a target,  launch  base,  or  weapon.  If  not, 
the  item  is  ignored.  If  the  item  is  one  of  these,  control  transfers  to 
a part  of  this  routine  which  reformats  the  appropriate  attribute  values 
into  the  form  required  on  the  TABLTAPE. 


Three  local  arrays  are  used  in  this  process: 


VEH(200)  - A logical  array;  set  true  if  vehicle  type  has  already 

been  processed  to  vehicle  table 

NYLD(50)  - Yield  in  kilotons  for  each  warhead 

NFFRAC(50)  - Fission  fraction  in  hundredths  for  each  warhead. 

Figure  158  is  a flowchart  of  this  routine. 


In  the  series  of  statements  preceding  statement  29  several  calls  on 
utility  subroutine  ITLE  are  made.  These  calls  look  up  the  index  of  various 
attributes  in  the  data  base  directory  (array  ATTNAME  in  common  /DIRECTRY/). 
These  indices  are  used  to  retrieve  the  attribute  values  from  the  VALUE 
array  in  common  /PROCESS/.  This  mode  of  operation  obviates  the  need  for 
processing  the  TABLE  source  code  with  utility  program  DECLARES. 
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Figure  158.  Program  TABLE  (Part  1 of  5) 
Part  I:  Initialization 
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5.6.1  Subroutine  HELP 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  translate  latitude  or  longitude  from  floating 
point  format  to  integer  format. 

HELP 

DEG  - Input  degrees  in  floating  point  format 
KDONE  - Output  translation  of  DEG  to  integer 
format 

LTEST  - Input  flag  set  to: 

0 - for  longitude  conversion 

1 - for  latitude  conversion 

None 


SUBROUTINES  CALLED:  None 

CALLED  BY:  TABLE 

Method : 

Each  execution  of  subroutine  HELP  translates  a value  for  latitude  or 
longitude  from  floating  point  format  to  integer  format.  The  sub- 
routine's input  and  output  are  transmitted  via  the  three  formal  para- 
meters: DEG,  KDONE  and  LTEST. 


The  flowchart  for  HELP  is  shown  in  figure  159. 


